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INTRODUCTION 



This instruction manual describes the basic data acquisition and display for the ND4410 
Single Parameter Data Acquisition and Display System. Each program is covered under 
a separate chapter with each chapter sub-divided into eight sections. The following 
programs are covered in this manual, 

CHAPTER PROGRAM 

I ND4410 Basic Physics Analyzer (41-1060) 



II 



ND812 Integer Interpreter (41-0017) 
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SECTION I 
INTRODUCTION 



1-1. PROGRAM SUMMARY 

1-2, The ND4410, Basic Physics Analyzer Program (41-1060) defines the basic pushbutton and 
keyboard entry commands for the ND4410 Single Parameter Data Acquisition and Display 
System. The program is an independent program containing routines for the following 
data acquisition and display functions: 

a. Initiation/ termination of data acquisition in ifie Accumulator Mode, 

b. Selection of preset analysis times, 

c. Selection of memory groups for data storage and display, 

d. Selection of memory group widths, 

e. Full scale horizontal and vertical display expansion, 

f. Marker display and expansion of marker defined area to horizontal full scale, 

g. Selection of live or static linear display or logarithmic display, 

h. Selection of the following parameters for display, 

(1) Center pointer channel/content and marker channels (left-right) 

(2) Current group/total groups, current group width and counts full scale value 

(3) Eilapsed and preset analysis time 

(4) Off (no parameters displayed) 

i. X-Y plot of the current status display and the current group. 
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1-3. Data Acquisition in the List Mode and additional operational commands are 
provided through the use of overlay programs. 

1-4. PROGRAM AREA 

1-5, The program occupies memory core location fi,j6j6j60Q through j6,30jd0Q, 
1-6. STARTING ADDRESS 

1-7. The starting address of the program isJ02j2i0go If the auto restart option is provided, 
the program will automatically restart atj2[04j2)g. 

1-8. EQUIPMENT CONFIGURATION 
1-9. MINIMUM EQUIPMENT 

1-10. The minimum equipment required for proper operation of this system is: 

a. An ADC 

b. The ND4410 Function Control Module 

c. A 33ASR Teletype 

d. A display oscilloscope 

e. The 4K, ND812 Computer 

1-11, The program will operate with either a 4K, 8K, 12K or 16K ND812 memory 
configuration, providing maximum data storage configuration of IK, 3K, 5K or 7K 
(24 bits), respectively. 

1-12. OPTIONAL EQUIPMENT 

1-13. An optional unit controlled by this program is an X-Y plotter. 
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SECTION II 
PROGRAM DESCRIPTION 



2-1. INTRODUCTION 

2-2, This section is intended to be read in conjunction with the flow charts outlined 
in Section VII. 

2-3. The ND4^nO Basic Physics Analyzer Program provides the basic function of analysis. 
It controls display, the clock, data acquisition, 12 of the 16 pushbuttons, and the 
erase pushbuttons. The program is divided into three sections (Figure 7-1): the background display 
section, the pushbutton and keyboard section and the ADC and low power section. The 
three sections are separated by interrupt levels. The background display program has all 
interrupts enabled. The pushbutton and keyboard routines have only the high level interrupts 
enabled (ADC, clock and low power). Vr\e ADC, clock and low power routines have no 
interrupts enabled. Thus, ADC data can be stored at any time, and the pushbutton calculations 
have precedent over background display. 

2-4. MAIN ROUTINES 

2-5. BACKGROUND DISPLAY ROUTINE 

2-6o The background display routine (Figure 7-2) provides passive display of predetermined data. 
It is divided into three parts; the display of the data points, the display of the three 
markers, and the display of the status pararneterso 

2-7. The data may be displayed in either the live or static mode. In live mode, the 
last ADC point acquired is displayed. In static mode, the program sets the starting address 
and the number of points to be displayed, and displays them. The X-axis is adjusted such 
that the points to be displayed are evenly spaced over the entire horizontal face of the 
CRT, 

2-8, The markers are displayed as vertical lines if they are within the limits of display. 
The two movable markers (left and right) may have any position in the display (or may be 
absent). They cannot cross, but they can be super- imposed. The third marker is always in 
the center of the display (or 1/2 point to left of center). 
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2-9 o Status may be any one of three parameters: current group number/total groups, 
group width and counts full scale value; clock values; and center marker location/value 
and left-right marker locations, 

2-10, The number of groups is equal to the memory size divided by the specified group 
width. Any remaining channels are assigned to group U Thus with the 4K ND812, the 
group width may vary from 1 to 1024, With each additional 4K of memory, 2048 channels 
are added to the memory size, 

OA 

2-11, The counts full scale value may be from 1 to 2 -1 in binary increments. The 
displayed value of 2^^-l is -1 since the number system is 23 bits plus sign (see Chapter II), 
If these limits are exceeded, the program automatically switches to logarithmic display. 
The counts full scale value for logarithmic display will be displayed as zero, 

NOTE 

An automatic calculation of memory size is made during initialization and 
set into the program for future reference, 

2-12, The clock values are the initial time over the remaining time of acquisition. 
The initial clock time may be varied in integer centiseconds (0.01 second). The time 
may be set to zero if infinity is desired. The remaining time, also in centiseconds, is 
displayed in increasing values from minus to zero for preset time, and from zero on 
up for infinity, 

2-13, The center marker is displayed as a maximum four digit channel address followed 
by the value of the channel at that location. These numbers will vary as the display 
changes. The value is continually updated by the display program. The left and right 
marker locations are displayed as maximum four digit channel addresses separated by a 
dash (-). 

2-14, The background display program continues the cycle of data display, marker 
display, and status display until an external device interrupts the cycle. After the 
interrupt, control is transferred back to the background program and the display cycle 
is continued, 

2-15, ADCCLCXK AND LOW POWER ROUTINES 

2-16. The ADC, clock, and low power routines (Figures 7-3, 7-6, and 7-4 respectively) 
are on the high level interrupt. They can interrupt any other program (except one another) 
for minimum processing time. The low power routine stops the computer. If the auto 
restart option is provided, the program is automatically started at 0040g, which is 
equivalent to manual starting at 0200g, The ADC routine reads and processes ADC data. 
It routes the data to the specified data storage group and increments that memory location. 
It also ensures that data storage is not within the program portion of the memory. 
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2-17. The clock routine operates on interrupts from a 100 KHz clock. Time is 
measured in centiseconds (0.01 seconds). At each interrupt, the clock routine is 
entered. If acquisition is off, no action is taken except to clear the clock flag. If 
acquisition is on, the clock buffer is incremented by one and a test is made for 
completion. If the acquisition is complete, then acquisition is turned off. At this time 
the clock status display buffer will indicate zero centiseconds. 

2-18. PUSHBUTTON AND KEYBOARD ROUTINES 

2-19. The middle level of interrupts are the pushbuttons, the erase buttons, the teletype 
(input and output) and the high speed reader and punch (Figure 7-5). Only one of these may be 
processed at a time, but they can be sequential. Thus, if a teletype character and erase 
occur at the same time, the teletype will be handled first, then the display will be erased. 
From the operator viewpoint both occur simultaneously, 

2-20o I/O DEVICE ROUTINE 

2-21, The telet]>^pe and high speed paper tape routines allow program continuation 

without waiting for the external device (Figure 7-8), Only the TTY input/output routines are used 

in this program. The others are provided for use by overlays, 

2-22, In one of the foreground routines, the command for print is given and control is 
returned to the background program. When the teletype is finished printing the character, 
an interrupt is generated. Through polling, it is found that the TTY print flag is set. 
This flag is then cleared and control is returned to the program that generated the print 
command. This allows other operations while the teletype is printing, 

2-23, The TTY read routine, reads a key from the keyboard and transfers control to 
either the keyboard routine or the calling foreground routine. In the keyboard routine, 
the key is compared in a table and if the overlay routine exists, control is transferred 
to that routine. Otherwise the message ERROR will be typed and control will return to 
the background program, 

2-24, 1-16, ERASE PUSHBUTTON ROUTINES 

2-25, There are 16 front panel pushbuttons (Figure 7-7), in this program only 12 are used. 
The other four (pushbuttons 8, 14, 15 and 16) are for overlay programs and future expansion. 
In Section IV, each pushbutton is explained in detail, and in Section VI they are summarized. 

2-26, In general, if a pushbutton is depressed, it sends an interrupt signal to the processor^ 
If the program is in the background section it is trapped to location one and 
proceeds to the pushbutton decode section, A table in the program listing lists the 
routines and where they are located in memory. The particular routine is performed, 
then control is returned to the background program. 
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2-27. SUBROUTINES 



2-28, The motion width and left and right marker subroutines have special hardware 
variable re-entry control. Thus, while the other pushbuttons act only once each time 
they are depressed, the motion, width, and left and right markers cause interrupts of 
variable speeds when they are held depressed. 

2-29. MOTION AND WIDTH SUBROUTINES 

2-30. The motion subroutine (Figure 7-9) increases or decreases the starting and ending addresses 
for display. This subroutine sets the expand flag. (Refer to description of groups routine, 
paragraph 2-44). 

2-31 . The width subroutine increases or decreases the number of channels displayed. 
This expansion (or contraction) is fixed to the center marker such that the display acts 
like a "zoom" lens on a camera. This routine sets the expand flag. (Refer to description 
of groups routine, paragraph 2-44). 

2-32. LEFT AND RIGHT MARKER SUBROUTINES 

2-33. TVie left and right markers (Figure 7-10) may be moved from the left marker at 

the current group starting channel to the right marker at the current group ending channel, 

2-34, The right marker may be moved from the left marker to current group ending channel. 

2-35. CFS SUBROUTINE 

2-36. The display CFS subroutine (Figure 7-1 1) increases or decreases the counts full 
scale value by a factor of two until a maximum value of 2^^-l (Or -1) or a minimum 
value of 1 is reached. A further increase or decrease after the maximum or minimum 
value is reached causes a switch to logarithmic display. 

2-37. PLOT SUBROUTINE 

2-38, The plot subroutine (Figure 7-12) plots the current status selected display parameter and the 
content of the channels displayed in the current group at the XY plotter. 

2-39. STATUS SUBROUTINE 

2-40, The status subroutine (Figure 7-13) changes the data displayed in the background section. 
It sets up the status for counts full scale, group width and groups, the clock, or the markers. 

2-41, DISPLAY SUBROUTINE 

2-42, The display subroutine (Figure 7-14) either turns on the live display or the static display. 
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2-43o GROUPS SUBROUTINE 



2-44, The groups subroutine (Figure 7-15) cycles through the possible groups and sets the 
starting address and width so that the next (or first) group is displayed. If the expand flag 
is set, n^o advance in the group number is made and the full "current" group is displayed, 

NOTE 

The group width may be varied by the Group Set Command, 
2-45, EXPAND SUBROUTINE 

2-46, The expand subroutine (Figure 7-16) sets the expand flag, the value of the left 
marker into display start, and the left and right marker difference into display width. 

2-47, ACQUIRE SUBROUTINE 

2-48, The acquire subroutine (Figure 7-17) turns acquisition on and off. It also resets 
the time for data acquisition to the predetermined value, 

NOTE 

The predetermined value can be varied by the Clock Set Commando 
2-49, RETURN SUBROUTINE 

2-50, The return subroutine (Figure 7-18) stops all input/output operations (teletype, 
plotter, cassette, etc.) except acquire, and returns control to the background display program, 

2-51, ERASE SUBROUTINE 

2-52, The erase pushbuttons (Figure 7-19) are similar to the other pushbuttons, but they 
serve a special function. Both must be pressed simultaneously to cause a program interrupt. 
When the erase flag is set, the program will go to the erase routine. This subroutine erases 
the group being displayed and then returns to the background display routine. 
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SECTION III 
OPERATIONAL PROCEDURE 



3-1. INITIALIZATION PROCEDURE 

3-2. The following is a step-by-step procedure for loading and initializing the ND4410 
Basic Physics Analyzer Program (41-1060): 

a. Depress the STOP key at the ND812 Computero 

b. Place the START/FREE/STOP switch at the teletype in the FREE position, 

c. Load the ND4410 Basic Physics Analyzer Program (41-1060) tape into the 
teletype reader with the leader (8-level punches) over the read heado 

d. Set the START/FREE/ STOP switch at START. 

e. Simultaneously depress the LOAD AR and NEXT WORD keys at the computer. 
The teletype reader will now step through the leader and read the program into the ND812 
memory. Upon completion of read-in, the reader will stop automatically. When the 
reader stops, check J Register for zero. If non-zero, reload. 

NOTE 

Refer to the ND812 Binary Paper Tape and Cassette Loader Program 
(41-0005) for loading procedures using a high speed paper tape reader 
or magnetic tape cassette. 

f. Set the SWITCH REGISTER Switches at starting address (je),jel2je!08) and depr ess 
the LOAD AR Key,. 

g. Depress the START key. The program will cause the teletype to print ND4410, 
perform a carriage return and line feed, print PLOTTER? and wait for entry of an N or Y 
to indicate whether or not an X-Y plotter is to be used, 

h. If an X-Y plotter is not used, type N. When N is typed, the program echoes 
NO, performs a carriage return and line feed, and types an asterisk (*). 
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i. If an X-Y plotter is used, type Y. When Y is typed, the program will echo 
YES and supply a (0,0) calibration voltage to the X-Y plotter. 

j. Adjust the plotter Zero controls to place the pen at the desired (0,0) point. 

k. Depress the SPACE bar at the teletype. This supplies a full scale X-Y 
calibration voltage to the X-Y plotter. 

I. Adjust the plotter Vernier controls to place the pen at the desired full scale 
X-Y point. 

m. Depress the SPACE bar at the teletype again. This returns the calibration 
voltage to the (0,0) point. Readjust the plotter Zero controls to place the pen at the 
desired {0,fS) point. 

n. Depress the SPACE bar at the teletype again. This returns the calibration 
voltage to the full scale X-Y point. Readjust the plotter Vernier controls to place 
the pen at the desired full scale X-Y point. 

o. Repeat Step m and n as often as necessary to attain satisfactory calibration. 
When satisfactory calibration is obtained, depress the RETURN key at the teletype. When 
the RETURN key is depressed, the program performs a carriage return and line feed, and 
types an asterisk (*), 

p. When an asterisk (*) is typed either after Step h or after Step o, call up 
the desired routine from the monitor mode by depressing the appropriate pushbutton on the 
ND4410 Function Control Module or by typing the appropriate single letter mnemonic at 
the teletype keyboard. 

NOTE 

For those routines requiring stipulation of direction, position 
the Direction ( <[ y ^) Switch accordingly. 

3-3. X-Y PLOTTER RECALIBRATION 

3-4. The X-Y plotter can be recalibrated without re-initializing the entire ND4410 
System. This is accomplished by loading a short overlay program (41-1059) tape following 
the loading procedure outlined in steps a through e (use 41-1059 tape in step c) of the 
initialization procedure (paragraph 3-1) and then performing the initialization and X-Y 
plotter calibration procedures outlined in steps f, g, and i through p. Repeat this procedure 
each time recalibration of the X-Y plotter is desired. 

NOTE 

To avoid destruction of data stored in the first 31 channels 
(memory core locations - 4j2(62g) of the data storage 
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areja (41-1059 is loaded into these locations), select 
a group width such that group 1 (which contains the 
odd number of channels remaining) will be at least 
31 channels wide and refrain from using groups 1 for 
data storage, A program listing for 41-1059 is provided 
on pages 8-60 through 8-63. 



3-5. RESTART PROCEDURE 

3-6. If it is necessary to restart the program, perform the following procedure, 

a. Depress the STOP key at the ND812 Computer. 

b. Set the SWITCH REGISTER switches at starting address (0,02j3i0_) and depress 
the LOAD AR key. ^ 

c. Depress the START key. On restart, the program will cause the teletype to 
perform a carriage return and line feed and type an asterisk (*). 



3-7. ACQUISITION MODE SELECTION 

3-8, The ND4410 Basic Physics Analyzer Program (41-1060) permits the ADC service 
routine to monitor data acquisition in three different modes: Accumulator, DMA Increment 
and DMA List. The three different modes are selected by changing the content of a 
location in memory. The content of a location is changed as follows: 

a. Depress the STOP key at the ND812 Computer. 

b. Set the SWITCH REGISTER switches to the octal memory location whose 
content is to be changed and depress the LC>AD AR key. 

c. Set the SWITCH REGISTER switches to the octal number of the change and lift 
the LOAD MR key. This changes the content of the memory location specified in step b, 

d. Restart the program as described for the Restart Procedure (paragraph 3-5), 
3-9, ACCUMULATOR MODE 

3-10, The ND4410 Basic Physics Analyzer Program (41-1060) is initialized to the 
accumulator mode of acquisition, i,e, the accumulator mode is the mode of acquisition 
selected when 41-1060 is loaded into the ND812 Computer, This mode of acquisition is 
completely under software control. When the ADC interrupts the computer, indicating 
that the ADC has an event for processing, all other interrupts are disabled and the program 
reads the channel number for the event. The program then checks the boundaries of the 
group in which the ADC is acquiring. If the event is outside the current group width 
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(which can happen when the ADC conversion gain is larger than the group size), the 
event is ignored, the ADC is reset and all interrupts are again enabled. If the event is 
within the boundaries of the current group, the program increments the 24-bit channel 
specified by the ADC, resets the ADC, and re-enables all interrupts. 

3-1 1 . The time required to process an event in the Accumulator Mode is approximately 
90 microseconds. The main advantage of this mode is that the user has complete control 
over how many data channels there are in the groups and where in memory the data will 
be stored. To select the Accumulator mode with acquisition in group 1 starting at location 
40J0!0g, field 0, the contents of locations 0,207]q and 0,1071^ are set to 0020^ and 
0000Q respectively, upon loading of the program. The content of locations 0, 20718 
{0020g) sets the mode of acquisition to the Accumulator mode and the content of location 
0,2072s W00q) specifies data field 0. 

3-12. DMA INCREMENT MODE 

3-13. The DMA Increment Mode of acquisition is completely under hardware control with 
the exception that the memory field in which data is to be stored can be specified. When 
the ADC cycle steals with an event, the hardware increments the 24-bit channel specified 
by the ADC. For this mode, the number of channels in the group is controlled by the hard- 
ware and the ADC conversion gain switch. The standard starting channel for DMA Incre- 
ment is location 4000Q in memory field 0, Therefore, if the conversion gain is larger than 
1024, the data acquired in channels above 1024 will wrap around and be added to the lower 
channels. This will cause errors in the data acquired. 

NOTE 

Although the DMA Increment acquisitiDn starting data 
channel is at location 4000Q in memory field 0, it can 
be changed to any memory location with a wiring change. 
(Refer to the ND4410 Data Acquisition and Display System 
Hardware Instruction Manual (IM88-0428, Addendum 1) ). 

3-14. The main advantage of the DMA Increment Mode is acquisition time. The time 
to process an event in this mode is approximately 6 microseconds. The DMA Increment 
Mode can be enabled by changing the content of memory location 0,207] n to 0040^, If 
the starting data channel is to be location 4000^ of field 1 rather than field 0, change the 
content of location 0,2072^ to 2000Q {4000Q for field 2, or 6000^ for field 3) . The content 
of location 0,2072q is initially set to 0000Q to select memory field upon loading of the 
program . 

3-15. DMA LIST MODE 

3-16. The DMA List Mode, like the DMA Increment Mode is under hardware control. 
When the ADC cycle steals with an event, the hardware accepts the event's channel number 
and the ADC's tagword, and stores the data sequentially in memory. The number of events 
listed and the starting location of the list (from the end of the selected memory field) is 
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determined by the content of memory location 0,2073o. For example, if a list count of 
Ig is selected, the event would be stored in the last channel of the selected memory field. 
If '\000Q is selected as the list count, the list will start 512 {]000q) channels from the end 
of the selected memory field, 

3-17. When the last event's data is stored and the list is full, an interrupt is generated. 
To service the list interrupt and output the list to an I/O device, the user must provide 
appropriate routines. At this time. Nuclear Data does not provide any software to support 
handling of the list mode as each individual system requires different processing of the list. 
The DMA List Mode can be enabled by changing the content of location 0,2072q to 0060Q. 
If the memory field for storage of the list is to be memory field 1 rather than field 0, change 
the content of location 0,2072q to 2000^ {A000^ for field 2 or 6000^ for field 3) . The 
content of location 0,2072q is initially set to 0W0Q to select memory field upon loading 
of the program. If the size of the list is to be other than ^000q (as it is initially set), 
change the content of location 0,2073q to the desired octal number. 
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SECTION IV 
OPERATOR OR USER CONTROL 



4-1. GENERAL INFORMATION 

4-2. The pushbutton selected (hardware entry) commands of the ND4410 Basic Physics 
Analyzer Program (41-1060) are executed by depressing the appropriate pushbutton at 
the ND4410 Function Control Module. The keyboard entry commands are executed by 
entering the appropriate single letter mnemonic at the teletype after an asterisk (*) has 
been typed by the program. For those commands which require stipulation of direction, 
the Direction (4H^) Switch is used. In the following description, the portion of the 
command to be typed at the teletype keyboard is underlined. All other information is 
provided by the program. 

4-3. HARDWARE ENTRY COMMANDS 
4-4. DIRECTION (^-►) SWITCH 

4-5. Determines the direction in which the display limit, marker, counts full scale or 
group will move v/hen the selected pushbutton is depressed. 

4-6. MOTION PUSHBUTTON 

4-7. Holding the MOTION pushbutton depressed causes the display to move horizontally 
in the direction selected by the Direction ( > 4 ►) Switch. The rate of movement is a 
function of the length of time the MOTION pushbutton is held depressed. However, a 
momentary depression will only move the display one channel. 

4-8. WIDTH PUSHBUTTON 

4-9. Holding the WIDTH pushbutton depressed, horizontally expands the display when 
the Direction switch is in the Left — ) position or horizontally contracts the display 
when the Direction switch is in the Right ( — ►) position. Horizontal expansion increases 
the spacing between channels, causing the number of channels displayed to decrease, 
while horizontal contraction decreases the spacing between channels, causing the number 
of channels displayed to increase. The rate of expansion or contraction is a function of 
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the length of time the WIDTH pushbutton is depressed. However, a momentary depression 
will only expand or contract the display by one channel, 

4-10, MARK POS PUSHBUTTON 

4-1 1 . Holding the MARK POS pushbutton depressed, causes the left and right markers 
(full scale vertical lines imposed upon the spectrum) to move in the direction specified by 
the Direction (<-►) Switch. The rate of movement is a function of the length of time the 
MARK POS pushbutton is held depressed. However, a momentary depression will only move 
the markers one channel. 

4-12. MARK SPAN PUSHBUTTON 

4-13, Holding the MARK SPAN pushbutton depressed, causes the right marker (a full 
scale vertical line imposed upon the spectrum) to move in the direction specified by the 
Direction (^-#^) Switch increasing or decreasing the number of channels between the 
markers. The rate of movement is a function of the length of time the MARK SPAN 
pushbutton is held depressed. However, a momentary depression will only move the 
right marker one channel , 

4-14. CFS PUSHBUTTON 

4-15. Depressing the CFS pushbutton increases the counts full scale value by a factor of 
two when the Direction Switch is in the Right ( — ►) position or decreases the counts full 
scale value by a factor of two when the Direction Switch is in the Left — ) position. 
Each time the CFS pushbutton is depressed, the counts full scale value will be increased 
or decreased by a factor of two until it becomes zero. The range of counts full scale 
values is from 1 to 2 -1 in binary increments. Logarithmic display is selected by 
depressing the CFS pushbutton after the minimum counts full scale value (1) is reached with 
the Direction Switch in the Left — ) position or after the maximum counts full scale 
value (2^^-l) is reached with the Direction Switch in the Right ( — ►) position. Display 
of the counts full scale value when selected by the STATUS pushbutton will appear as 
follows: j0, 1,3. . .83886J07, -1 ,J0. The counts full scale value displayed for 2^^- 1 is 
-1 , The counts full scale value displayed for logarithmic display is zero (jS), 

4-16. PLOT PUSHBUTTON 

4-17. Depressing the PLOT pushbutton plots the current display (including the current 
STATUS selected display parameters and the content of the channels in the current group) 
at the X-Y Plotter. The X-Y plot operation can be terminated at any time by depressing 
the RETURN pushbutton. An asterisk (*) is typed at the teletype to indicate initiation 
and termination of the X-Y plot operation. 

NOTE 

Calibration of the X-Y plotter is described in Section 3 of this manual 
under OPERATIONAL PROCEDURE. When an X-Y plotter is not used, 
depressing the PLOT pushbutton causes an asterisk (*) to be typed. 
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4-18. STATUS PUSHBUTTON 



4-19. Depressing the STATUS pushbutton sequentially displays the following parameters: 
(1) Center pointer channel/content and left marker channel -right marker channel, with 
the channels relative to the currently displayed group; (2) Current group number/total 
groups, current group width and counts full scale; (3) Remaining/elapsed and preset 
analysis time in centiseconds or (4) Off (no parameters displayed). After the last parameter, 
display reverts back to the first parameter. 

NOTE 

If a preset time other than zero (0) is entered using the 
Clock Set Command, remaining time is displayed in 
increasing values from minus (-) the preset time to zero 
(0). If zero (0) is entered for the preset time, then 
elapsed time is displayed in increasing values from 
zero (0) to the maximum preset analysis time (8,388,607). 

4-20. DISPLAY PUSHBUTTON 

4-21. Depressing the DISPLAY pushbutton alternately selects live or static display. 
Static display presents the data to the display oscilloscope continually while live display 
presents the data to the display oscilloscope only when the corresponding channel has 
been addressed by the ADC. 

4-22. GROUPS PUSHBUTTON 

4-23. Depressing the GROUPS pushbutton sequentially selects the groups for data storage 
and display. The direction of selection is determined by the Direction (^1 — ►) Switch. 

In the left ) position, the next lower group is selected. After the first group, 

selection reverts to the last group. In the right ( ►) position, the next higher group is 

selected. After the last group, selection reverts back to the first group. Display of the 
current group, total groups and current group width can be selected using the STATUS 
pushbutton . 

4-24. EXPAND PUSHBUTTON 

4-25. Depressing the EXPAND pushbutton expands the display between the left and right 
markers to horizontal full scale. The display can be returned to normal by depressing 
the GROUPS pushbutton. 

4-26. ACQUIRE PUSHBUTTON 

4-27. Depressing the ACQUIRE pushbutton alternately starts or stops data acquisition. 
Data acquisition stops automatically after the preset analysis time. The preset analysis 
time is entered using the Clock Set Command. If data acquisition is stopped prior to 
completion of the preset analysis time, it con be re-started to continue for the remaining 
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time by first re-setting the preset time to the time remaining using the Clock Set Command 
and then re-starting data acquisition using the ACQUIRE pushbutton. The preset and 
remaining/elapsed analysis time can be displayed using the STATUS pushbutton. 

NOTE 

Since data storage occurs in the group displayed at the 

start of analysis, the GROUPS Pushbutton should be used 

to display the desired storage group prior to starting analysis. 

4-28. RETURN PUSHBUTTON 

4-29. Depressing the RETURN pushbutton re-initializes the program and returns to 
display. 

4-30. ERASE PUSHBUTTONS 

4-31. Simultaneously depressing the ERASE pushbuttons, clears the currently displayed 
group to zero. 

4-32. KEYBOARD ENTRY COMMANDS 
4-33. CLOCK SET COMMAND 

4-34. The following operation sets the preset analysis time at 1000 centiseconds (0.01 
seconds). 

*CLOCK TIME: TOOO ( SPACE) CENTISEC 

4-35. The Clock Set Command permits entering a preset analysis time in centiseconds 
(0.01 second). Maximum preset analysis time is 2 - 1 centiseconds (83,886.07 seconds). 
Entering selects the maximum preset analysis time. Control of analysis on a live or 
clock time basis is selected by the LIVE TIME/CLOCK TIME switch on the ADC. The 
preset and remaining/elapsed analysis time in centiseconds can be displayed using the 
STATUS pushbutton. 

4-36. The Clock Set Command is specified by typing C after an asterisk (*) is typed. After 
C is typed, the routine prints CLOCK TIME: and waits for an input number. Depressing the 
ALT MODE key causes the routine to echo the last time value entered. Otherwise a number 
from to 2^^ - 1 (8,388,607) centiseconds may be entered. Entry of a number must be 
terminated by depressing the SPACE bar. 

4-37. GROUP SET COMMAND 

4-38. The following operation sets the group width at 256 channels. 
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*GROUP WIDTH: 256 ( SPACE) 

4-39. The Group Set Command enables entering the number of channels to be contained in 
each group. The group width can be any number from 1 to the maximum number of channels 
allocated for data storage (1024, 3072, 5120, or 7168 channels for ND812 memory sizes 
of 4K, 8K, 12K or 16K respective!)^ . If the group width selected is a number not equally 
divisable into the total number of channels allocated for data storage, the group width of 
the first group will be equal to the remainder and the remaining group widths will be 
equal in size. For example: If 333 Is selected as the group width with 1024 channels 
allocated for data storage, the first group would contain 25 channels (1024 - 3 x 333 = 25) 
and the remaining 3 groups would each contain 333 channels. 

4-40. The Group Set Command is specified by typing G after an asterisk (*) is typed. 
After G is typed, the routine prints GROUP WIDTH: and waits for entry of an input number. 
Depressing the ALT MODE key causes the routine to echo the last group width entered. 
Otherwise, any number from 1 to the maximum number of channels allocated for data 
storage, may be entered. Entry of the group width must be terminated by depressing the 
SPACE bar. 
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SECTION V 
ERROR DIAGNOSTICS 



5-1. ERROR INDICATION 

5-2o Execution of an illegal operation will result in an error message being typed at the 
teletype. Table 5-1 lists the error messages and their causes. 



Table 5-1, Error Indications 



ERROR MESSAGE 


CAUSE 


ERROR: 99XXXX 
ERROR: 62XXXX 
ERROR: 47XXXXX 
ERROR: 40XXXXX 


Depressing an unassigned pushbutton. 
Depressing an unassigned teletype key. 
Entering a clock time greater than seven digits. 
Entering a group width greater than the 
number of channel allocated for data 
storage , 



NOTE 

The least significant digits indicated by X's in Table 5-1 for the 
ERROR message may change depending upon what illegal operation was 
performed. However, the two most significant digits will be the same 
for the same type of error. 
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SECTION VI 
COMMAND SUMMARY 



6-1. HARDWARE ENTRY COMMANDS 

6-2, The following summarizes the hardware entry commands described in Section IV. 

a. DIRECTION {^-» SWITCH 

Stipulates direction of display, marker, counts full scale or group movement, 

b. MOTION PUSHBUTTON 

Moves display horizontally in direction specified, 
Co WIDTH PUSHBUTTON 

Horizontally expandy^contracts display, 

d, MARK POS PUSHBUTTON 

Moves markers in direction specifiedo 

e, MARK SPAN PUSHBUTTON 

Moves right marker in direction specified, increasing or decreasing the number 
of channels between the markers, 

f. CPS PUSHBUTTON 

Increasey'decreases the counts full scale value in binary increments. Selects 
logarithmic display after reaching the maximum/minimum counts full scale 
value, 

g. PLOT PUSHBUTTON 

Plots the current display parameters and group at the X-Y plotter. 
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h. STATUS PUSHBUTTON 

Sequentially displays: (1) cenf-er pointer channel/content and left-right 
marker channels; (2) current group number/total groups, current group width 
and counts full scale value; (3) remaining/elapsed and preset analysis time; 
or (4) Off (no parameters displayed). 

i. DISPLAY PUSHBUTTON 

Alternately selects live or static display, 
j. GROUPS PUSHBUTTON 

Sequentially selects groups for data storage and display in direction specified, 
k. EXPAND PUSHBUTTON 

Expands the marker defined display to horizontal full scale. 
I. ACQUIRE PUSHBUTTON 

Alternately starts or stops data acquisition, 
m. RETURN PUSHBUTTON 

Re-initializes the program and returns to display, 
n. ERASE PUSHBUTTONS 

Clears currently displayed group to zero, 

6-3, KEYBOARD ENTRY COMMANDS 

6-4. The following summarizes the keyboard entry commands depicted in Section IV, 

a. CLOCK SET COMMAND 

Permits entering a preset analysis time in centiseconds (0,01 second). Maximum 
analysis time is 2^^-1 centiseconds (83,886.07 seconds). Entering selects 
the maximum analysis time, 

b. GROUP SET COMMAND 

Permits entering the number of channels per group. Group width can be any 
number from 1 to the maximum number of channels allocated for data storage. 
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SECTION VII 
FLOWCHARTS 



7-1. MAIN ROUTINE FLOW CHARTS 

7-2, Figures 7-1 through 7-8 depict the flow of the main program. 



7-3. SUBROUTINE FLOW CHARTS 

7-4. Figures 7-9 through 7-22 depict the flow of the individual subroutines. 
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Figure 7-1 . Basic Physics Analyzer Program 
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Figure 7-2. Background Display Routine 
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Figure 7-3, ADC Routine 
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Figure 7-8. I/O Device Routine 
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Figure 7-9, Motion and Width Subroutines 
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Figure 7-10. Left and Right Marker Subroutines 
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Figure 7-12. Plot Subroutine 
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Figure 7-13. Status Subroutine 
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Figure 7-15. Groups Subroutine 
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Figure 7-16. Expand Subroutine 
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Figure 7-17. Acquire Subroutine 
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Figure 7-18. Return Subroutine 



7-18 




Set Start 
Channel 



Set Number 
of Channels 



Clear Next 
Channel 



NO 




Figure 7-19. Erase Subroutine 
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Figure 7-20„ Clock Set Subroutine 
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Figure 7-21, Group Set Subroutine 
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SECTION VIII 
PROGRAM LISTING 



8-1 , A listing of the ND4410 Basic Physics Analyzer Program (41-1060) as produced 
by Pass 3 of the ND812 BASC-12 General Assembler Program (41-0001) is provided on 
the following pages. 
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/NP-44U^ PASIC SINGLE PARAMETER ANALYZER SYSTEM 
/VERSlOh A 

/ 2(53) P>3/14/72 



/DEFINITIONS 



ROSTAT 


» 


06(^6 


CLRCLK 


B 


P)612 


SETACQ 


8 


2!7i26 


REAOCW 


B 


7527 


CLRADC 


B 


7521 


DISRDY 


S 


7514 


LDLIST 


B 


«632 


LDSPLY 


B 


7506 


OSMARK 


9 


7507 


OISPOF 


B 


75C90 


OMOSOF 


B 


2221 


DHDSON 


8 


2230 


DMWCSA 


B 


0626 


CSWTCH 


B 


J^6U 


5TLAMP 


B 


0614 


SKPL 


B 


1440 


PION 


B 


1500 


PLOTXY 


S 


7511 



/INTEGER PACKAGE DEFINITIONS 



lEXT 


B 




lOUT 


B 


3400 


ISUB 


B 


40PI0 


lADD 


B 


44l?)0 


ILOD 


B 


5000 


ISTR 


8 


5400 


INEG 


B 


6000 


IDIV 


B 


6400 


IMUL 


B 


7000 


INOP 


B 


7400 


IM 


B 


DU9INT 



/READ DOUBLE STATUS WORD 

/CLEAR CLOCK FLAG 

/TRANSFER ADC COk'TPOL WORD 

/READ DOUBLE ADC WORD 

/CLEAR SPECIFIFD ADC 

/SKIP IF DISPLAY READY 

/LOAD LIST REGISTER 

/DISPLAY X AND Y COORDINATED 

/DISPLAY MARKER 

/TURN OFF DISPLAY (ACC) 

/TURN OFF DISPLAY CD^^A) 

/TURN CN DISPLAY CD^A) 

/LOAD DMA WORD COUNT AND START 

/CLEAR SWITCH FLAG 

/SET LAMP RFGISTFR 

/SKIP ON POWER LOW 

/POWER INTERRUPT ON 

/PLOT XY, SET nSRDY FLAG WHEN DONE 



/EXIT 

/OUTPUT 

/SUBTRACTION 

/ADDITION 

/LOAD 

/STORE 

/NEGATE INTEGER AC 
/DIVISION 
/MULTIPLICATION! 
/NO OPERATION 
/INTEGER PACKAGE ENTRY 
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/INTEPPUPT ROUTINES FOR 
/ LOW POi^^ER (HIGH) 
TTY CLOW) 
HSR-HSP CLOW) 
STATUS CB) TO 



J FIEGISTER 
TIME OUT ON EXTERNAL CLOCK 
CLOCK AT 100 H7 CHIGH) 
PUSH BUTTONS CINCLUOING ERASE) 
ERASE 

DIRECTION! laLEFT? 0-RIGHT 
2 EXTRA BITS 

4 BITS FOR BUTTON DECODE CNOT ERASE) 

CFIELO 
[FIELD 



♦ 0001 

/NON-VECTORED INTERRUPT LOCATION 

0001 0760 LOWIPR, STATS 
0002 6272 JMPjJ LPC 

/TTY CHARACTER INPUT BUFFER 



/PC STORAGE ON INTERRUPT 
/INTERRUPT SERVICE ROUTINE 



00f:3 


1300 


TTY, 


1300 


/TTY BUFFER 


0004 


0000 




0000 




0005 


0000 




0000 




0006 


0000 




0000 




0007 


7575 




7575 




'TTY MESSAGES 








0010 


5457 


CLSM, 


5457 


/CC)LOCK TIME 


0011 


4353 




4353 




0012 


0064 


TIM, 


0064 


/TIME 


0013 


5155 




5155 




0014 


4575 




4575 




0015 


0043 


CSEC, 


0043 


/CENTISEC 


0016 


4556 




4556 




0017 


6451 




6451 




0020 


6345 




6345 




0021 


4375 




4375 




0022 


6257 


GPW, 


6257 


/CG)ROUP 


0023 


6560 




6560 




0024 


0075 




0075 
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0025 


6751 


WID, 


6751 


/WIDTH 





0026 


4464 




4464 









K n 7 K 

D 51 / 5 




K ffl 9 K 

w 7 D 




Hi 



n 01 ^ n 


IT y 


p D D no V 


W M «♦ 







0031 


6262 




6262 







0032 


5762 




5762 







0033 


3200 




3200 


/COLON 





0034 


7575 




7575 







0035 


7777 


PCRLF, 


7777 


/CR-LF, 





0036 


1200 




1200 







0037 


7575 




7575 





/E1951 
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/AUTO RESTART VECTOR 
/SPACE USED BY OVERLAYS 



/REINITIALIZE 



/SPACE RESERVED 



FOR CASSETTE AND DISC TRAP INTERRUPTS 



*006l 



/CASSETTE TRAP ROUTINE 



00bl 

0062 

0063 

0064 

0065 



0000 
0740 

7061 
6304 



CTRAP, 





TWIO 
CCLF 

XCT lONX 
JMP# CTRAP 



/CLEAR ALL CAS5ETTE FLAGS 

/ENABLE INTERRUPTS 
/IGNORE INTERRUPT 



♦ 0071 



/DISK TRAP ROUTINE 






0071 


0000 


AOCST, 


/DISK TRAP AND ADC STATUS SAVE AREA 





0072 


7053 




XCT IQNX /ENABLE INTERRUPTS 





0073 


6302 




JMP* ADCST /RETURN 





0074 


0300 


LPCi 


LOWPC /POINTER TC INTERRUPT PROCESS ROUTINE 





0075 


0362 


MOREF, 


RETRN /POINTER TO ADDITIONAL SKIP CHAIN ON LOW LEVEL 





0076 


0200 


HP0, 


COHRET /POINTER TO INITIALIZATION ROUTINE 





0077 


0000 


ADCJ, 


/J REG STORAGE ON ADC INTERRUPT 





0100 


0000 


AOCK, 


/K REG STORAGE ON ADC INTERRUPT 



*10l 



/ADC INTERRUPT PROCSS ROUTINE (HIGH) 






0101 


0000 ADC0, 





/91 MICRO SECOND STORE 





0102 


5503 


STJ ADCJ 


/STORE J 





0103 


0550 


TWSTK 


/STORE K 





0104 


0100 


ADCK 







0105 


1011 


LJST 


/STORE STATUS 





0106 


5515 


STJ ADCST 







91107 


1450 


CLR 







0110 


7527 


READCW 


/READ ADC WORD 





0111 


1602 


SIP K 







0112 


6026 


JMP AOCl 


/ALT SET - EVENT NO GOOD -IGNORE 





0113 


1341 


SFTZ JK 1 


/FORM INC INST FOR ADC VALUE 





0114 




ADJ GROUPZ 
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0115 


5 4 15 




STJ ADDRS 


/ADOPtSS PORTinN 


^.1 


0116 


1 4 6 




SIZ CLR 


/FIELD CHANGE? 





0117 


\6^A 




INC ^ 


/YES 





0120 


404P 




SBJ MEKZC 







P'l?! 


137 4 




ROTO JK 14 







0122 


4435 




ADJ GRCUPZ+1 







0123 


5 4 '/1 6 




STJ Xll 


/INSTRUCTION + FIELD 





0124 


1455 




SIZ CLR 







0125 


23ei 




SUBL 1 







126 


4033 




SBJ MEMZC+1 







0127 


1451 




SNZ CLR 


/GROUP OVERFLOW? 





0130 


6010 




JMP ADCl 


/YES, DONT STORE 





0171 


0344 


Xll« 


TWISZ F0 


/INCREMENT PRDPEP CHANNEL- C^ODIFIE 





0132 


4(^W0 


ADDRS , 


4000 


/ CMODIFIED) 





01S3 


6005 




JMP ADCl 


/NO OVERFLOW 





0134 


3502 




ISZ ADDRS 


/INC HIGH OROEP « LOW OVERFLCWFD 





0135 


7 1P4 




XCT Xll 







0136 


3104 




DSZ ADDRS 







0137 


146^.0 




IDLE 







©I4p 


0510 


ADCl, 


TWLDK 


/RESTORE K 





0141 


0100 




AOCK 







0142 


5151 




LOJ ADCST 


/RESTORE STATUS 





0143 


1002 




RFOV 







0144 


5145 




LDJ ADCJ 


/RESTORE J 





0145 


1007 


lONX, 


IQNN 


/CMODIFIEOD IONN QR I0NH 





0146 


6345 




JMP^ ADC0 




HIGH SPEED READER INTERRUPT TEST 







0147 


7424 


HREADT, 


HIS 


/HS READ FLAG? 





0150 


6353 




JMP<8 MOREF 


/NO, GO TEST OVERLAY INTERRUPTS 





0151 


7422 




HIR 


/YES, CLEAR FLAG, READ CHAP 





0152 


0600 




TWJMP 







0153 


0362 


HREAD, 


RETRN 







0154 


7423 




HRF 


/CLEAR FLAG, RFADCHAR, FETCH CHA^ 





0155 


6213 




JMP* INICOM 


/RETURN FROM INTERRUPT 





0156 


4000 


GR0UP7, 


4000 


/INC INST FOR FIRST CHANNEL 





0157 


0344 




TWISZ F0 


/IN CURRENT GROUP 





0160 


7776 


MEMZC, 


7776 


/INC INST FOR LAST CHANNEL+1 





0161 


0344 




TWISZ F0 


/IN CURRENT GROUP 





0162 


2303 


C0NTL2, 


TABl-1 


/PTR,TO VALID KYBD COMMAND CHARS 





0163 


0760 


lOIS, 


STATS 


/PTR,TO INITAL RTN TO BACKCRQUND 





0164 


0433 


IPRC, 


SAVEL+7 


/INITAL PTR TO PC IN STACK 





0165 


0434 


INITL. 


SAVEL'»'10 


/INITAL VALUE FOP STACK PTR 





0166 


0212 


INI TO, 


NOCLAY 


/USED I3Y OVERLAY FOR INIT ALIZAT ION 





0167 


2422 


IPSUPF, 


PSUPPF 


/PTR, TO PRINT SUPPRESS INDICATOR 





0170 


0362 


INICOM, 


RETRN 


/PTR, TO INTERRUPT RETURN ROUTINE 



8-6 



/HIGH SPEED PUNCH INTFROUPT TEST 






0!7l 


7434 


HIPUfsiT, 


HOS 


/HSPUNCH FLAG? 





(H72 


61^:3 




JHP HREAOT 


/NO, GP TRY MS RFADER 





0173 


7432 




HOL 


/YES, CLEAR FLAG, LOAD 8UFFEP 





0174 






TWJMP 







0175 


03*=!? 


HI PUN, 


RETRN 







0176 


7433 




HUP 


/CLEAR FLAG, LOAD BUFFER, PUK'CH 





0177 


631^7 




JMP^ INICOM 


/RETURN FROM IK'TFRRUPT 



/E2415 



8--7 



*55200 



/INITIALIZATION ROUTINE 






0200 


6642 


COMRET, 


JPS$ LOPRNT 





0201 


5114 




LDJ INITL 





0202 


0540 




TWSTJ 





0203 


0413 




SAVEP 





0204 


5121 




LDJ lOIS 





0205 


5721 




STJ# IPRC 





0206 


1510 




CLP J 





0207 


5720 




STJ* IPSUPF 





0210 


5624 




STJ^ lECHOF 





021 1 


6323 




JMP# INITO 





0212 


1500 


NOOLAY, 


PION 





0213 


0640 




TWJPS 





0214 


2403 




UNPACK 





0215 


0035 




PCRLF 





0216 


6427 




JPS FCHAR 





0217 


o c n n 




OnJP riKST 





0220 


6002 




JMP .♦2 















0222 


5000 




LDJ FIRST 





0223 


2215 









0224 


5403 




STJ DECODE 





0225 


1750 




CLR JK 





0226 


0660 




TWJPS# 





0227 


0000 


DECODE, 








0230 


5042 




LDJ DINST2 





0231 


0540 


DMOD, 


TWSTJ 





023i2 


0572 




DINST 





0233 


6133 




JMP COMRET 





0234 


2106 


lECHOF, 


ECHOF 


'TTV PRINTER 


INTERRUPT 


ROUTINE 





0235 


1004 


TYPET, 


lONH 





0236 


7414 




TOS 





0237 


6146 




JMP HIPUNT 





0240 


7411 




TOC 





0241 


0600 




TWJMP 





0242 


4000 


LOPRNT, 


MEMZ0 





0243 


7413 




TCP 





0244 


6354 




JMP# INICOM 



/FETCH CHAR ROUTINE 

/RETURN WITH 7 BIT STRIPPED KEYBOARD 
0245 0000 FCHAR, 



/INITIALIZE-CIOFF) AFTER 1ST EXECUTION 
/INITIALIZE STACK POINTER 



/SET INTERRUPT RTN TO B/G STATUS 



/CLEAR PRINT SUPPRESb INDICATOR 
/CLEAR ECHO OLD VALUE INDICATOR 
/INITIALIZE OVFRLAYC ) OR NOOPCNOOLAY^ 
/INITIALIZE POi^'ER LOW INTERRUPT 
/PRINT CR/LF * 



/GO WAIT FOR COMMAND CHAR 

/GOT IT, SEARCH COMMAND DIRECTORY 



/MATCH, FETCH POINTER 

/MOVE IT TO ROUTINE ADDRESS 

/LAY IT IN THE ROAD 

/RUN OVER ITl 

/(MODIFIED) POINTER TO COMMAND ROUTINE 
/DISABLE PLOTTFR 



/REINITIALIZE 

/FLAG INDICATU'G INEC FORCED TO ECHO 



/ENABLE HIGH INTFRRUPT 
/PRINT FLAG? 

/NO, GO TRY HIGH SPEED PUNCH 

/YES, CLEAR FLAG 

/ RETURN TO CALL 

/RTN ADDRESS, ROUTINE FOR TTY 

/CLEAR FLAG - TYPE CHAR 

/RETURN FROM INTERRUPT 



COMMAND CHAR 



8-8 






0246 


6416 


JPS LOREAD 


/RETURN AFTER CHAR RECEIVED 





0247 


1145 


SFTZ J 5 


/STIP OFF PARITY BIT 





0250 


liei7 


ROTO J 7 







02CI 


0540 


TWSTJ 


/SAVE CHAR 





0252 


2320 


CHARXP, CHARX 







0253 


6sn 


JPS LOPRNT 


/ECHO CHARACTER PACK 





0254 


5172 


LDJ C0NTL2 


/PTR TO VALID KEYBOARD COMMAND CHARS 





0255 


5400 


STJ FIRST 







0256 


5304 


LDJ« CHARXP 


/7 BIT CONTROL CHAR 





0257 


6312 


JHP$ FCHAR 


/EXIT 



/KEYBOARD INTERRUPT TEST 



0260 

0261 

0262 

0263 

0264 



7404 
6124 
7402 

0600 
0362 



0265 <6375 



KYBDT, TI5 

JMP TYPET 

TTR 

TWJMP 
LOREAD, PETRN 

JMPf INICOM 



/KEYBOARD FLAG? 
/NO, GO TRY PRINTER FLAG 
/YES, READ CHAR, CLEAR FLAG 
/RETURN TO CALL 

/RETURN ADDRESS OF ROUTINE WANTING TTY 
/RETURN FROM INTERRUPT 



/PLOT PUSHBUTTON ROUTINE 



0266 
0267 
0270 



0000 
5010 
6137 



PLOT, 



/PLOT JK ROUTINE 



0J?7l 

0272 

0273 

0274 

0275 

0276 



0000 
7506 
7511 
7514 
6101 
6305 



WAITP, 

DINST2, 

PINST, 





LDJ 
JMP 



JPSD 
OMOD 





LDSPLY 
PLOTXY 
DISRDY 
JMP ,-l 
JMP^ WAITP 



/SET FOR PLOT nEvT DISPLAY PASS 
/SET UP PLOT NOT DISPLAY 



/(MODIFIED) IDLE IF NO PLOTTER 
/WAIT UNTIL DONE 

/EXIT 



0277 6746 JPSD 



JPS# .+PWAITP-DINST 



/PLOT fNfi DISPLAY) INSTRUCTION 



/E2060 



8-9 



/INTERRUPT PROCESS ROUTINE 







7 514 


L nwpc . 

u« W n r w § 


DISPDY 


/MARKER RUNNING? 


I7t 




1442 




SKIP 






R 

\o 


i?! TIP 9 


7 *50 




DISPOF 


/NO, BLANK SCOPE 




vJ r • O 


<^ t? H ' U 




JPS 


SAVE 


/SAVE THE FDLLnWTNIG! J 


V 


0i 4 

W w r «♦ 


1374 




ROTO 


JK 14 


/K 




0i3l?l^ 






LJKFRS 


/R 


Oi 

V 


w K. Q 


1 "^7 4 




ROTO 


JK 14 


/S 


v> 


It' VI *-< ^ 


10 11 




LJST 




/STATUS 






^ t.1 €■ ' 1 




LDJ# 


lONXP 


/OLD INTERRUPT STATE 


7> 


01 3 1 1 


5000 




UDJ 


FIRST 


/FIRST 





W3 1 P 








LIPR 


/PPOGRAM COUNTFR 




0i3 1 3 


6001 




JMP 


• + 1 


/EXIT FROM SAVF 




1 4 


5025 




LDJ 


lONHP 


/PPEP poR ADC TNT TO DO lONH NOT lONN 







75!53 




XCT 


xie 


/STJ P lONXP 





0316 


1440 




SKPL 




/POWER FAIL? 





0317 


1442 




SKIP 









0320 


0000 




STOP 




/YES 





0321 


1400 


MOREH , 


IDLE 




/OVERLAYS CAN USE AS TWJM© to TEST FOR 





0322 


I 4P0 




IDLE 




/MORE HIGH LEVFL I NTERRUPTS-MUST RESTORE 





0323 


0740 


HRTN, 


TWIO 




/TAGGED FOR OVERLAY RETURN 





0324 


0606 




RDSTAT 


/FETCH 4410 STATUS 





0325 


1602 

W I'- ft« 




SIP 


K 


/LIST MODE OVERFLOW? 





0326 

&«r W «»• u 


6262 

V d W 




JMP# 


LOFLO 


/YES# TURN OFF ACQUIRE 





0327 


1204 




LKFJ 




/SAVE 4400 STATUS IN K 





K330 

•J W W "U 


2064 




AMDF 


P3400 


/LOOK AT INTERRUPT FLAGS 





^331 

H' V/ V A 






8N2 


J 


/4400 INTERRUPT? 





0332 

lU W V 


6152 




JMP 


KYBDT 


/NO, GO TRY KYBO/RDER FLAG 





01333 


1141 




SFTZ 


J I 


/YES.NOW EVALUATE THEM 





334 

Hy w w '■f 


1502 




SIP 


J 


/CT8 INTERRUPT ? 





033S 

wy w w •vi' 


6254 




JMP# 


ITMOUT 


/YES 





R33S 


114 1 


NOCTE . 


SFTZ 


J 1 


/NO 




0337 


1 502 




SIP 


J 


/4400 CLOCK INTERRUPT? 




3 4PI 

ip W Kj 


6252 




JMP* 


ICLOCK 


/YES 


01 
%i 


1/13 4 1 


100 4 


T ONHP . 


lONH 




/NO. ENABLE INTERRUPT HIGH 


10 


to v3 (C 


07 40 




TWIO 






IC 


Ir w w 


0fi 1 1 




CSWTCH 


/CLEAR SWITCH FLAR 


tc 


01 4 4 


1^44 




SFTZ 


JK 4 


yMU*^T RF Ptl^HRllTTHKlS 


01 


w ** *? 


1361 




ROTD 


JK 1 


/MOVF FRASF RTT TKITH I 





0346 


1505 




SIZ 


J 


/ERASE? 





0347 


1610 




CLR 


K 


/YES, CLR PUSHBUTTON CODE 





0350 


1410 




CLR 


FLAG 







0351 


1602 




SIP 


K 


/L/R BIT LEFT? 





0352 


1430 




SET 


FLAG 


/YES - FLAG IS DIRECTION INDICATOR 





0353 


1243 




SFTZ 


K 3 


/NOW GET PUSHBUTTON CODE 





0364 


1364 




ROTD 


JK 4 


/IF ERASE J NOW « 20 





0355 


4440 




ADJ 


POINTR 


/BUILD POINTER Tn PUSHBUTTON ROUTINE POI 





0356 


5403 




STJ 


.■►3 







0357 


1750 




CLR 


JK 





8-10 



0360 

0361 01^00 



TWJPSf 





/GO TO PUSHBUTTOk' PQUTINE 

/(MODIFIED) POINTER TO P'JSHBUTTPK ROUTI 



/INTEf^PUPT RETURN) ROUTINE 






r'S *l A 

0002 


4 n ^ f 


f 1 f? ^ III : 

R E T R N » 


I OFF 





0363 


14113 




CLR FLAG 





0364 


14 5s.?! 




CLR 





0365 


6431 




JP5 RSTR 





03e?6 


!^612 




STJ^ LIPR 





0367 


5400 




STJ FIRST 





0370 


5617 


X16, 


STJ^ lONXP 





0371 


1002 




RFOV 





0372 






LKFJ 





0373 


131^1 




LRSFJK 





0374 


1204 




LKFJ 





0375 


6001 




JMP .^'l 





0376 


7211 




XCT*> lONXP 





0377 






TWJMP# 





04C0 


e301 


LIPRi 


LOWIPR 


/SAVE REGISTERS 


ROUTINE 





04p'l 


0000 


SAVE, 








0402 


5611 




STJf SAVEP 





0403 


3410 




ISZ SAVEP 





0404 


7303 




XCT* SAVE 





0405 


3504 




ISZ SAVE 





0406 


6104 




JMP .-4 





0407 


0145 


lONXP, 


lONX 





0410 


2025 


LOFLO, 


AGOFF 





0411 


0336 


ITMOUT, 


NOCTB 





0412 


i?0n 


ICLOCK, 


CLOCK 





0413 


0434 


SAVEP, 


SAVEL+10 





0414 


3400 


P3400, 


3400 





0415 


2336 


POINTR, 


TABLE 


/RESTORE 


REGISTERS ROUTINE 





0416 


0000 


RSTR, 








0417 


3104 




DSZ SAVEP 





0420 


5305 




LDJ# SAVEP 





0421 


7303 




XCT* RSTR 





0422 


3504 




ISZ RSTR 





0423 


6104 




JMP ..4 



/INTERRUPT REGISTER STACK FOR LOW LEVEL 
0424 0000 SAVELf 



/PRIME FLAG FOR RFSTQRATIOK' 
/PRIME OVERFLOW FOR RESTORATION 
/RESTORE THE FOLLOWING: 
/PROGRAM COUNTFR 
/FIRST 

/OLD INTERRUPT STATE 

/STATUS 

/S 

/R 

/K 

/EXIT FROM RESTORE ROUTINE* J fvESTOPEn 
/TURN ON INTERRUPT 
/RETURN TO BACKGROUND 



/PUSH J REG IN STACK 

/BUMP STACK POINTER 

/GET NEXT REG TO SAVE 0^ EXIT 

/UPDATE POINTER TO NEVT REG 



/PTR,TO INTERRUPT PTN CMD 
/PRT,TO ACQUIRE OFF ROUTINE 
/ADC TIME OUT 

/PTR, TO LIVE TIME CLOCK SERVICE 
/STACK POINTER 

/PTR, TO PUSHBUTTON TABLE 



/DECREMENT STACK POINTER 

/POP STACK TO J REG 

/MOVE J REG TO PPOPER REG OR EXIT 

/UPDATE PCINTEP TO NEXT REG 



/J 



8-n 



^A?.5 


f'! 

















V It *» * ' 


fj\ 




/ 




9' (h i7' <7 






If * V* w J, 




T n w 


/ T n I'j y 


a 171430 


C" !7I 




/ p T p e T 


PI 4 !^ i'i 


£^ 7 6 






/ T K' T F F R 1 1 


' r ! ~ C 1.1 X M 1 C. 


»3 1 *^ V rv run 




0434 


0000 





/J 


0435 


00^0 





/K 


0436 


0000 





/R 


0437 


0000 





/S 


0440 


00^0 





/STATUS 


0441 


C>0t;0 





/lONX 


0442 


0-300 





/FIRST 


0443 


0000 





/PC 



/E2702 
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/LOAD OOUBLF INTEGER INTO J + K REGISTEf=? ROUTINE 
/J POINTS Jl> INTEGER ON CALL 



044 4 
044*5 
W4 46 
0447 

0451 
04E2 



5 4t'4 



GETP, 



STJ GETP 
LOJ* GETP 
ISZ GETP 
TWLDK 


JMP# GETK 



/DOUBLE INT ADD OR SUBTRACT ROUTINE 

/IF OVERFLOW 8 ADD 

/IP OVEPFLO»'^ ■ 1 SUBTRACT 

/KJ •►OR - (»CCALL*.n 

/RETURN TO CALL+2 

/RESULT IN KJ 





0453 


{^300 


ASTW, 












0454 


1301 




LRSFJK 


/SAVE KJ 





5^455 






LOJ^ 


ASTW 


/FETCH CALL+1 


(?) 


0456 


3!5i>'3 




ISZ 


ASTW 






0457 


6513 




JPS 


GETW 


/FETCH C(CALL«»1 





0460 


1451 




SNZ 


CLR 


/SUTRACT? 





CI461 


60K'5 




JMP 


ADTW 


/NOi DO AO 





0462 


1720 




CMP 


JK 


/YES, NEGATE KJ 





0463 


15CM 




INC 


J 







0464 


1455 




SI7 


CLR 


/BORROW? 





0465 


1604 




INC 


K 


/YES 





0466 


1122 


ADTW, 


ADR 


J 


/ADO LEAST 





0467 


1455 




SIZ 


CLR 


/CARRY? 





0470 


1604 




INC 


K 


/YES 





0471 


1224 




ADS 


K 


/ADO MOST 





0472 


6317 




JMP^ 


ASTW 








0473 


0000 


LOG, 







/LOG 2 CONVERSION 





0474 


1605 




SIZ 


K 


/MOST s 0? 





0475 


6007 




JMP 


LOGDl 


/NO, no ALL 





0476 


1501 




SNZ 


J 


/LEAST B 0? 





0477 


6304 




JMP^ 


LOG 


/EXIT, DATA B 9> 





0500 


1204 




LKFJ 




/DO LEAST 





0501 


5017 




LDJ 


LOGTWO 







0502 


2314 




SUBL 


14 







0503 


5415 




STJ 


LOGTWO 







0504 


1602 


LOGDl, 


SIP 


K 


/DONE? 





0505 


6004 




JMP 


L0GD2 


/YES 





0506 


3012 




DSZ 


LOGTWO 







0507 


1341 




SFTZ 


JK 1 







0510 


6104 




JMP 


LOGDl 







0511 


1341 


L0G02, 


SFTZ 


JK I 
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0512 LDJ lOGTWC 

0513 1367 ROTO JK 7 

P5J4 J3S4 SFTZ JK 14 

0515 ^S-S*^ ADDL 30 

0516 54t?2 STJ LOGTWO 

f/!517 6324 JMP«» LOG /EXIT, K « LOG jK 



0520 

0521 

0522 

0523 

05S'4 



0?I3^ 
^133 
0131 

(>; (51 



LOGTWO, 
TWK5, 
Xlll# 
DISCON, 



30 

133 

Xll 





PWAITP, WAITP 



/POINTER TO TWISZ INSTt?UrTION TO LAST CHAh^NEl 
/DISPLAY TYPE, a0 LIVE. OTHEKWISE STATIC 
/POINTER TO PLOT ROUTINE 



/LIVE DISPLAY ROUTINE 






0525 


5052 


TWINKT, 


LDJ TEX2 





0526 


5450 




5TJ TEXl 





0527 


5105 




LDJ XUI 





0530 


6564 




JPS GETW 





0531 


1374 




ROTO JK 14 





0532 


147 




SET 





0533 


6560 




JPS ASTW 





0534 


0156 




GROUPZ 





0535 


1360 


TWINKI, 


ROTD JK 





0536 


1361 




ROTD JK I 





0537 


1303 




EXJRKS 





0540 


6407 




JPS DSPLY 





0541 


3120 




DSZ TWK5 





0542 


6053 




JMP LDSCON 





0543 


5121 




IDJ XUI 





0544 


5523 




STJ TWK5 





0545 


0600 




TWJMP 





0546 


0760 




STATS 



/MODIFY DISPLAY cnuTINE - SO ONLY I POTN 



/FETCH ADC DATA CHANNEL ADD^^ESS 

/SET SUBTRACT INDICATOR FOP ASTW 
/SUB ADDRESS OF 1ST CHANNEL IN GROUP 

/(MODIFIED) CFS 

/(MODIFIED) 

/rbx axis, KJsaDDRESS 

/DISPLAY POINT 

/400 POINTS? 

/YES, DO STATU* 



/DISPLAY ALL DATA POINTS 1 TIME ROUTINE 

/J-K PEGS HAVE POINTER TO 1ST CHANNEL TO DISPLAY 






0547 


0000 


DSPLY, 









0550 


5407 


STJ 


DISP52 


/ADDRESS OF 1ST CHANNEL TO DISPLAY 





0551 


1374 


ROTD 


JK 14 


/ISOLATE FIELD OF 1ST CHANNEL 





0552 


2103 


ANDL 


3 







0553 


4464 


ADJ 


DNORM 


/FORM TWLDK IN55TPUCTION 





0554 


54C12 


STJ 


0ISP51 







0555 


1750 


CLR 


JK 







0556 


0514 


DISP51, TWLDK 


F0 


/(MODIFIED) - LOAD CHANNEL LOl^ 





0557 


4000 


DI8P52, 4000 




/(MODIFIED) 





0560 


3501 


I5Z 


0ISP52 


/STEP TO CHANNEL HIGH 





0561 


1374 


ROTO 


JK 14 


/J 9 DATA LEAST 





0562 


1201 


LSFK 




/S « CURRENT DELTA X 





0563 


7105 


XCT 


DISP51 


/K X DATA MDST 
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0SC4 


1 357 


SFT21 , 


SFTZ 


JK 17 


/fhODIFIED) C^^AY BE JPS LHGl 





0565 


I34(r3 


SFTZ2» 


SFTZ 


JK 


/(MODIFIED) ADJUST FOR COUNTS Fl'LL SCAL 


(5 


eS66 


1550 




CLR 


J 







0S67 


I 124 




AOS 


J 







0570 


4415 




ADJ 


DELTA 







0571 


1103 


TEX , 


EXJR 









0572 


75(^6 


DINST , 


LDSPLY 


/(MODIFIED) DISPLAY POINT (JP3^ Fi*'AITP') 


fct 


0573 


1 455 




SIZ 


CLR 


/UPDATE DELTA X 





0574 


1504 




INC 


J 







0575 


4411 




ADJ 


DEITA*1 







0576 


1103 


TEXl, 


EXJR 




/(MODIFIED BY TWINKT), RsNEXT X ORIGIN 





0577 


1455 


TEX2, 


SIZ 


CLR 


/X OVERFLOW? 





0600 


6331 




JMPf 


DSPLY 


/YES - EXIT 







3522 




ISZ 


DISP52 


/NO - STEP TO NEXT CHANNEL 





0602 


6124 




JMP 


DISP51 









3525 




ISZ 


DISP51 







0604 


6126 




JMP 


DISP51 







0605 


0000 


DELTA, 





/DELTA VALUE FOR X ORIGIK' FOR DATA^SUPF> inw 





0606 


0!^K4 




4 


/LOW 







0607 


1512 


MGCP, 


MGCLP-l 


/POINTER 


TO LEFT, RIGHT, CENTER MARKER FOTNTePsS 





0610 


0003 


MARKN, 


3 


/NUMBER 


OF MARKERS 





0611 


0000 


MOATA, 





/CENTER 


MARKER DATA VALUF 





0612 


0000 














0613 


1533 


DSPP, 


DSC 


/POINTER 


TO DISPLAY STARTING CHANNEL 





0614 


0000 


PMTWO, 





/OVERLAP 


INDICATOR 


/DATA DISPLAY 


- (BACKGROUND) 









0615 


5124 


LDSCON 


, LDJ 


TEX 


/RESTORE DISPLAY ROUTINE 





0616 


5520 




STJ 


TEXl 







0617 


<5174 




LDJ 


DISCON 







0620 


1511 




SNZ 


CLR J 


/STATIC DISPLAY? 





0621 


<6l74 




JMP 


TWINKT 


/NO, LIVE DISPLAY 





0622 


1101 




LRFJ 




/SET X AXIS a TM R REG 





0623 


5107 




LDJ 


PMTWO 


/SET OLAP OR NORMAL GROUP START CHNL 





0624 


1524 




CMP 


INC J 







0625 


5511 




STJ 


PMTWO 







0626 


4513 




ADJ 


DSPP 


/DISPLAY STARTTNr, CHANNEL 





0627 


<7177 


X10, 


XCT 


X9 


/JPS GETW - GET ROUBLE INTEGER 





0630 


1361 




ROTD 


JK I 


/KJ » ABSOLUTE STARTING ADDRESS 





0631 


6562 




JPS 


DSPLY 


/NOW DISPLAY DATA 





0632 


5916 




LDJ 


MARKD 


/DISABLE PLOTTER - ENABLE DISPLAY 





0633 


2301 




SUBL 


1 







0634 


5542 




STJ 


DINST 





/E3204 



8-15 



/MARKER 



CALCULATION AND DISPLAY 



flk 








LDJ MGCP 
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X 12f 
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5454 
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130 1 
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It A fli K 
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4 4 <9 m 
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0514 
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1374 




RQTD JK 14 







0700 


5567 




STJ MOATA 


/AND SAVE IT 





070 1 


3503 




ISZ CM2 







0702 


7105 




XCT CMl 







07^3 


0550 




TWSTK 







0704 


0612 




MDATA+1 







070S 


6033 




LDJ MCHANP 







0706 


7167 




XCT X10 


/FETCH ABS MARt^EP CHNL JPS GET^' 





071^7 


3430 


MRKl, 


ISZ MARKC 


/RESTORE REMAIMKG MARKERS cnUNT 





0710 


1470 




SET 







0711 


0640 


X13, 


TWJPS 


/SUBTRACT DISPLAY STARTlNa CHANNEL 





0712 


0453 




ASTW 







0713 


1533 


DSCI, 


DSC 







0714 


5425 




STJ MCHAM 
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0715 


7132 




VCT X12 


/MCHAN s MARKER DISPLAY CHA<^f>iEL 





0716 
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SIP K 


/MARKER INSIDE DTw<5PLAY AREA? 





0717 


6011 




JMP MRK5 


/NO, KILL MARKFP 





07?0 


1^510 




TWLDK 


/MCHAN ♦ DELTA X 





0721 


6P.5 




DELTA 







0722 


1 J 




MPY 


/MCHArJ * DELTA 





0723 
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EXJRKS 







0724 
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TWSTK 







0725 
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DELTM 
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0727 
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DELTA+1 







0730 


5012 


MRK5, 


LDJ MCHAN-J-1 







0731 
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SMZ K 


/DELTA > 4096? 





0732 


6013 




JMP MRK2 


/NO 





0733 


1515 




SIZ CLR J 


/MCHAN > 4096? 





0734 
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JMP MRK4 


/YES, OUTSIDE nlSPLAY 
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LDJ MCHAN 







0736 






JMP MRK3 







0737 


05)00 


MARKC, 


/POINTER 


TO NUMBER TO RE DISPLAYED 
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0741 


MCHANP, 


MCHAN 







0741 


0000 


MCHAN, 


/HIGH ORDER HALF OF NU>^^BFP TO BE DnPLAYEn 





0742 














0743 
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MARKSPi 


MARKS /POINTER 


TO MARKER PRDCEJ^SING LOOP 





0744 


0000 


DELTM, 


/X AXIS 


LOCATION OF MACKFR 





0745 


7125 


MRK8, 


xcT ys 


/LDK DELTA 





0746 
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MPY 


/MCHAN ♦ DELTA+n 0^ (DELTA * KCHAi 
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1303 




EXJRKS 







0750 


4504 




ADJ DELTM 







0751 


1301 
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/MARKER DELTA s e^? 





0752 


1504 




INC J 


/YES, INC FDR DISPLAY 
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SIZ CLR K 


/OUTSIDE DISPLAY? 





0754 


1750 


MRK4, 


CLR JK 


/YES, KILL MARKEP 
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5S11 




5TJ DELTM 
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DSZ MARKC 


/3 DELTAS DONE? 
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JMPjs MARKSP 
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CALCULATION AND DISPLAY 
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P760 
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STATS, 


LDJ 
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/INITIALIZE STAThS SETUP 
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J 
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yYtS. SKTP THF STATU 5 rTSPl^v 
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SET 


J 
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0767 




SCOPCR, 


SET 


J 
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C240 
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4 4 50 
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STJ 


MARKC 
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LDJ* 


MARKC 
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1001 


5540 




STJ 


MCHAN 
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SIP 


J 
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1003 
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CMP 


J 
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STJ 


STAPH 
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DSZ 


MARKC 
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LDJ* 


MARKC 







1007 
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CMP 


INC J 
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STJ 


STADL 


/STORE LOW HALF 





1012 
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SIZ 


CLR 







1013 
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STAPH 
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1014 


7500 


CONVLP, 


DISPDF 







1015 


6431 
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JPS 


DV8Y10 


/DIVIDE HIGH P D F R BY 1 - < 





1016 


t# 


STADH, 












1017 
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JPS 


DVBY10 
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1020 
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STADL, 












1021 






ROTD 


JK 14 







1022 
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JPS 
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1023 
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TWLDK 







1024 
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STADL 







1025 
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LDJ 


STAPH 







1026 
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SIZ 


CLR JK 
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1027 






JMP 


CONVLP 


/ wo m TFT MFYT inwFST PTf^TT 





1030 


5167 




LDJ 
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1031 


1516 




SIN 


CLR J 


/NEGATIVE? 





1032 


6003 




JMP 


. + 3 


/NO, FORGET TT 





1033 


2303 




SUBL 


3 


/YES, INSERT MTNijS 





1034 


6423 




JPS 


STAOUT 


/DISPLAY MINUS STGN 





1035 


5200 
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FIRST 


/GET SEPARATOR Cha© 





1036 


6421 




JPS 


STAOUT 


/DISPLAY CHAR 
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JMP 


STATLP 
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PI 


1040 




STATO, 


LDSCON 


/POINTER TC DISPLAY DATA 


POUTTKP 




1041 


2257 


STATX, 


MR-l 


/POINTER TO STATUS GROUP 


TO PF OISPLAYF 





1042 


7777 


YOPIG, 


7777 


/Y ORIGIN FOR DISPLAY 







1043 


m77 


C77, 
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024fl) 


C240, 
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1045 




XORIG, 





/X ORIGIN FOP DISPLAY 





/DIVIDE 


BY 10 


ROUTINE 






/DIVIDE 


CALL+l BY 


DECIMAL 10 


/RESULT 


PUT 


IN CALl+1 






/RETURN 
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/K HAS HIGH 
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ON 


ENTRY 
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1047 
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CLR 
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DVBY10 
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6310 
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REGISTER 


ROUTINE 
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DISPOF 
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ANDL 
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1067 


1141 
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P14 
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DISPOF 
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CLR 
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XCTP 


OINSTP 





1115 


2230 




ADDL 
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1116 


3032 




DSZ 


POINTC 





1117 


6005 




JMP 


CONT 




1120 


5026 




LOJ 


P5 





1121 
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POINTC 





1122 


5155 




LDJ 


X0RI6 





1123 


1235 




NSBS 


K 





1124 


1103 


CONT t 


EX JR 







1125 


3017 




nsz 


8ITCNT 





1126 


61 17 




JMP 


NXTPNZ 





1127 


1425 




SIZ 


CMP 
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6125 




JMP 


NXTWRD 





1131 


2412 




SMJ 


DTImO 





1132 


1442 




SKIP 







1133 


6003 




JMP 


ADVANC 





1134 


1103 




EX JR 







1135 


7205 




tZl9 


OINSTP 
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5171 


ADV ANC . 


LDJ 


XORIG 





1137 


4173 




SB J 


C240 





1140 


6573 




STJ 


XORIG 





1141 


6362 




JMP# 


STAQUT 





1142 


0572 


DINSTP, 


OINST 


/POI 





1143 


0570 


DTWO, 


570 


/2 W 





1144 


0000 


BITCNT, 





/BIT 





1145 


4000 


P4000 , 


4000 







1146 


0005 


P5, 


5 







1147 


0014 


P14, 


14 







1150 


000 5 


POINTC, 


5 


/BIT 





1151 


5013 


CTABLE, 


LDJ 


. + 13 



/GFT NFXT MATPTX POINT 

/MATRIX IN P PPG, X DRIGIN IN J REG 

/DISPLAY POINT IF 3ET 
/LDSPLY - DISPLAY POINT 
/BIAS X ORIGIN FHP Nf!XT POINT 
/ROW COMPLETE? 
/NO 

/YES- RESTORE FOP 5 MORE POINTS 

/RESTORE X ORIGIN 

/BIAS Y ORIGIN FOP NEXT R0*»*- 

/X ORIGIN IN R PFG, MATRIX TN J PFQ 

/WORD DEPLETED? 

/NO- PROCESS NFXT POINT 

/ANOTHER WORD LEFT IN MATRIX? 

/YES 

/WAS IT A 2? 
/NO 

/YES, FORCE LAST POINT 
/LDSPLY - DISPLAY POINT 
/REORIGIN X ORIGIN 

/EXIT - AFTER ! CHAR 



/2 WORD COMPLEMENTED MATRIX wpPD FOR A ? 
/BIT COUNT IN CHAR MATRIX PER WORD 



INT IN CHAR MATRIX ON X AXIS 
/SKELETON FOR LOJ INST TO GET r-I5?PLAY MA 



/MATRIX FOR CHAR 



/DISPLAY CHAR IMAGES 

/ROTATE EACH WORD I LEFT 

/THEN EACH 5 BITS ACROSS X AXIS 

/AND LASTC5TH) ROW HAS ONLY 4 BITS 

/2 IS SPECIAL AND NEEDS BIT SET IN 

/MISSING BIT IN 5TH ROW 
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4001 TABL, 
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/I 
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6043 
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1166 


76ei2 


7602 
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7017 







1170 
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4214 
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5370 







1172 


7641 


7641 
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1173 


7017 


7017 







1174 


5641 


5641 


/6 





I17f5 


7213 


7213 
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3704 


3704 


/7 
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2102 


2102 
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5642 
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/8 
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7213 
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5642 
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1203 
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1206 
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1207 


2101 





1210 


5640 





1211 
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1212 


1530 
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1214 


5035 





1215 


2173 





1216 


1120 
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5432 
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t A A K 

3445 





1232 


K 4 A 

510 4 





1233 


6105 





1234 


1515 





1235 


3041 





1236 


5040 





1237 


1503 





1240 


2214 





1241 


4420 





1242 


0540 





1243 


0535 





1244 


4032 





1245 


0540 





1246 


0536 





1247 


6343 





1250 


0523 





1251 


0007 





1252 


1255 





1253 


0001 





1254 


0000 





1255 


0012 





1256 


0000 





1257 


0030 





1260 


0000 





1261 


1360 





1262 


1340 



DISPLY, 



LDONE 



DISCN, 

LAMP, 

CFSP, 



CFS, 



ROTT, 
SFTT, 



/REVERSE DISPLAY TYP^:: I^rTCATrK> 

/MOVE TO STATIC r^\0 =J I T TO KRF". bIT g 

/UPDATE LAMP BlT.c TO PfLFUECr PTSPLAV 
/ADO IN STATIC UA^P BTT 
/SET LAMPS ON r.R r,FF 
/SET UP LIVE DISPLAY 

/LOG CONV DONE? 
/NO 



/REMAINDER? 
/YES, ROUND UP 

/>2K GROUP? 
/YES 

/BUILD ROTATION INST, 



LDJ^ DISCN 
CMP J 
ANOL 1 
STJ# DISCN 
SFTZ JK 16 
SET J 
STJ ZSET 
LDJ LAMP 
ANOL 73 
AJK J 
STJ LAMP 

TWIO 
STLAMP 

TWIDJ 
GROUPW 
TWLDK 
GROUPW-fl 
SIZ K 
JMP LDONE 
SFTZ JK 1 
ISZ ZSET 
JMP ,-4 
JMP ,-5 
SIZ CLR J 
DSZ ZSET 
LDJ ZSET 
SIP SNZ J 
ADDL 14 
ADJ ROTT 
TWSTJ 
TWINKl 
SBJ ZSET 
TWSTJ 
TWINKl+1 
JMP«» DISPLY 



OISCON /POINTER TO DISPLAY TYPE INDICATCi^? 

7 /LAMPS TO BE SET ON 

CFS /POINTER TO COUNTS FULL SCALE 

1 /CFS MINIMUM 



12 



30 



ROTO JK 
SFTZ JK 



/COUNTS FULL SCALE 
/CFS MAXIMUM 



/SKELETON! FO" »OTD Jf'ST 
/SKELETON' F0>* SP"T7 JK tnsj 
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171 1 


C w V? 




TPSI OR 

W r VJ l» U IS f 


•J ~ v> 


."♦-LOG-SFTZl 


/fJPS LOG) 


CI 1 


C V *J 






1 

i 


/MINIMUM 


RANGE OF LEFT MARKER 


1 
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0000 









) 


266 


0001 


MGCL, 


1 


/LEFT MARKER CHANNEL NUMPFF? 




267 


0000 











1 


270 


2000 


MGCF?, 


2000 


/RIGHT MARKER CHANNEL NUMBER 


1 


271 


0000 











01 1 


272 


2000 


MMAX, 


2000 


/MAXIMUM 


OAkl^C nC DTPUT MAOt/ETD 

KANbt ur KJLwnT rnAKi\tH 


01 1 


273 


0000 













274 


3777 


ZFULL, 


3777 


/COUNTS 


c 1 1 1 i e r A 1 ET 


01 1 


275 


0000 











/ r 

f V»pr 


PUSHBUTTON 


ROUTINE 






/ OC 1 


COUNTS FULL SCALE 


OR LOG DISPLAY 




01 1 


276 


0000 


ZSET, 









01 1 


277 


5125 




LOJ 


CFSP 




01 1 


300 


6457 




JPS 


UPDWN 




ffi 1 


301 


1605 




SIZ 


K 


/AT 1 TMTTO 


01 1 


302 


6031 




JMP 


ZLOG 


/TC3| St 1 LUlj DI5f*LAT 


01 1 


303 


5126 




LOJ 


CFS 


/Sir\ ftlCT IID HTeDl AV <5UTPTQ 


01 1 




0t 7 




STJ 


ZFULL+1 




01 1 


305 


2330 




SUBL 


30 




01 1 


306 


1524 




CMP 


INC J 






307 


2314 




SUBL 


14 




01 1 


310 


1506 




SIN 


J 




01 1 


311 


1354 




SFTZ 


JK 14 




01 1 


312 


2214 




ADDL 


14 






3(13 


4531 




ADJ 


SFTT 




CI 1 


;^14 


0540 


X21«i 


TWSTJ 




/STORE DISPLAY SHIFT NUMBER 8 


01 1 


3-15 


0565 




SFTZ2 




01 1 


316 


1374 




ROTO 


JK 14 




01 1 


317 


4535 




ADJ 


SFTT 




01 1 


320 


0540 


X22. 


TWSTJ 


/STuKE DISrtAY SHIFT NUnDtw' j 


01 1 


321 


0564 




SFTZl 






1 


322 


1710 




CLR 


JK 


/NOW SET COUNT, ^ FULL SCALE 


1 


323 


1341 




SFTZ 


JK 1 






324 


1504 




INC 


J 




] 


325 


3130 




DSZ 


ZFULL+1 




] 


326 


6103 




JMP 


• 




] 


327 


5533 


ZMERG, 


STJ 


ZFULL 




] 


330 


0550 


TWSTK 






1 


331 


1275 




ZFULL-^l 




1 


332 


6334 




JMP# 


ZSET 


/EXIT 


1 


333 


5151 


ZLOGi 


LDJ 


SFTT 


/PLACE JMP LOG IN DISPLAY ROUTINE 


1 


334 


7120 




XCT 


X21 


/TWSTJ SFTZ2 - NrjOP SHIFT NUMBEP 2 


1 


335 


6152 




LDJ 


JPSLOG 


/JPS LOG INSTRUCTION 


1 


336 


7116 




XCT 


X22 


/TWSTJ SFTZl • MODIFY SHIFT NUMBER 


1 


337 


1710 




CLR 


JK 





8-23 



1340 am 

/E190B 



JMP 7MeRG 



/MOVE LEFT AND RIGHT MARKERS UP OR DOWN ROUTINE 



1 


1341 


0^0'^ 


MOVEIT, 









1 


1342 


5544 




STJ 


ZSET 






. O *♦ 


1 4 




SNZ 




f \^ \.t ! V tj ^ >* S 


1 


1344 


?202 




AODL 


2 


/NO, MOVE RIGHT ONE FIRST 


\ 


1345 


6412 




JPS 


UPDWN 


/YES, MOVE LEFT ONE 


1 


1346 


5150 




LOJ 


ZSET 




1 


1347 


1405 




siz 




/COUNT DOWN? 


1 


I35a 


2202 




AODL 


2 


/YES, MOVE RIGHT ONE 


3 


1351 


1470 




SET 





/SECOND PASS Fi AC 


1 


1352 


64^5 




JPS 


UPDWN 




1 


1353 


6312 




JMP^ 


MOVEIT 







1354 


1521 


DCHI, 


OCHANS 




' 


1355 


0000 


STIMES, 












1356 




PCONST, 


10 




/TIMER CONTROL CHMSTANT 


/STEP UP 


OR DOWN BY 1 


TO a 


ROUTINE 




/UP/ 


^OOWN 


BASED 


ON FLAG 











1357 


0000 


UPDWN, 












1360 


5421 




STJ 


NUM 


/POINTER TO NUMBER 


• 


1361 


14C95 




SIZ 









1362 


2304 




SUBL 


4 


/FLAG SET- GOlMG DOWN 





1363 


22V12 




ADDL 


2 


/FLAG CLEAR- GnlK-r, UP 





1364 


5422 




STJ 


LIMIT 


/POINTER TO LI^^IT 





1365 


5252 




LDJ<B 


PTIMEI 







1366 


1455 




SIZ 


CLR 


/SECOND PASS? 


! 


1367 


5112 




LOJ 


STIMES 


/YES, USE OLD TEST 


: 


L370 


55J3 




STJ 


STIMES 




3 


1371 


1515 




SIZ 


CLR J 


/PUSHBUTTON SiKiGLP STEP? 


] 


1372 


6004 




JMP 


. + 4 


/YES, BYPASS MULTIPLE UPDWNS 


3 


1373 


5317 




LOJj^ 


DCHI 


/N TIMES A FUNrTTOf-' QP niSPLY 


1 


L374 


1163 




ROTO 


J 3 




3 


1375 


2107 




ANDL 


7 


/BUT NO MORE Than 6 


3 


1376 


1504 




INC 


J 




3 


1377 


>5476 




STJ 


EXPAND 


/SET PASS COUNTER 


3 


L400 


0510 




TWLOK 


/GET NUMBER - LHw 


3 


1401 


0000 


NUM, 









3 


1402 


3501 




ISZ 


NUM 


/STEP TO HIGH HALF 


3 


1403 


5302 




LDJf 


NUM 


/GET NUMBER - MlPM 


3 


1404 


1301 




LRSFJK 


/SAVE NUMBER IM PS 





1405 


0410 




TWSBK 




/START LIMIT TFST 





1406 


0000 


LIMIT, 












1407 


3501 




ISZ 


LIMIT 







L410 


4302 




5BJ«i 


LIMIT 







L411 


3103 




DSZ 


LIMIT 


/RESTORE LIMIT PriMTER 
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1412 


1735 


SIZ 


SET JK 


/AT LIMIT? 





1,413 


1756 


SIN 


CLR JK 


/Nu» CL" * SKIP I'NICONDITIunalLt 





H I 4 


6335 


JMP* 


U P D W N 


/YES, EXIT JK «ET 





1415 


1604 


INC 


K 


/SET KJ X + I 





1416 


1 .4^5 


SIZ 




/COUNT DOWN? 





1417 


1730 


SET 


JK 


/YES, KJ a -1 





1420 


12?^4 


ADS K 




/ADD LOW 





1421 


1455 


SIZ 


CLR 


/CARRY? 





1422 


1504 


INC 


J 


/YES 





1423 


1122 


ADR 


J 


/ADO MOST 





1424 


5723 


STJ<» 


NUM 


/AND STORE IT 





1425 


1374 


ROTO 


JK 14 







1426 


3125 


DSZ 


NUM 


/FETCH LEAST 





1427 


5726 


STJ^i 


NUM 


/AND STORE IT 





1 430 


3045 


DSZ 


EXPAND 


/LAST PASS? 





1431 


6131 


JMP 


NUM-1 


/NO, DO ANOTHER 





1432 


5154 


LDJ 


PCONST 


/SET UP TIMER FOR CLOCK 





1433 


054*11 


TWSTJ 









1434 


21P2 


PTIME2 







1435 


1750 


CLR 


JK 







1436 


0540 


TWSTJ 









1437 


2103 


PTIMEI, PTIME 









1440 


6361 


JHP^ 


UPDWN 


/EXIT JK ■ 



/MARKER SPAN PUSHBUTTON ROUTINE 



:1441 0000 MWIOTH, 

1442 5052 LDJ MGCRP 

1443 6564 JPS UPDWN 

1444 6303 JMP«» MWIDTH 

/DISPLAY SPAN PUSHBUTTON ROUTINE 



/MOVE RIGHT MAPKFR UP OR DOWN 
/EXIT 



1445 0000 DWIDTH, 

1446 >5075 LDJ DSCP 

1447 6570 JPS UPDWN 

1450 1420 CMP 

1451 1470 SET 

1452 5044 LDJ DECP 

1453 <6574 JPS UPDWN 

1454 6471 JPS DISSET 

1455 3467 ISZ GROUPF 

1456 6311 JMP* DKIDTH 

1457 6102 JMP .-2 



/MOVE DISPLAY ST^»T CHANNEL UP 

/REVERSE DIRECTIONS 

/SET SECOND PASS FLAG 

/MOVE DISPLAY FND CHANNEL DOWN 

/SET DISPLAY PARAMETERS 
/SET EXPAND FLAG 
/EXIT 

/OOPS, GROUPF DVFRFLOW 



/MARKER P08 PUSHBUTTON ROUTINE 



1460 0000 MMOVE, 

1461 5032 LDJ MGCLP /MOVE LEFT + RIGHT MARKERS UP CP OCWN 

1462 0640 X57, TWJPS 



8-26 



1463 1341 
1464 63e4 



MOVEIT 
JMPjJ MMOVE 



/DISPLAY PQS PUSHBUTTON ROUTINE 






14^55 


0000 


OMOVE, 







/CHANGE DISPLAY S T A k T T N C h A N M E L 







1466 


1420 




CMP 




/REVERSE NORMAL FUf-iC'IuN "r UruW.M 







1467 


5<^54 




LDJ 


DSCP 


/MUVc START AND ^ND Ulo'^L**Y C!^A"<r 


C 1 c 





1470 


7l?6 




XCT X57 


/JPS MOVEIT 







1471 


6454 




JPS 


OISSET 


/SET UP NEW OI.^PLAY PARAMETERS 







1472 


3452 




ISZ 


GROUPF 


/SET EXPAND FLAG 







1473 


63?!6 




JMP«» 


DMOVE 


/EXIT 







1474 


6102 




JMP 


.-2 


/OOPS, GROUPF nVF»FLDW 




'EXPAND 


PUSHBUTTON ROUTINE 











1475 


6)000 


EXPAND, 














1476 


7050 




XCT 


X5l 


/JPS IM 







1477 


5214 




ILOO* 


MGCLP 


/LEFT MARKER ChaknEL NUMBER 







1500 


4620 




I ADD* 


GSCP 


/ADD/? OF 1ST CHANNEL IN CU=?PEHT 


IRCUP 





1501 


4040 




ISU3 


INI 









1 502 

* ^ mm 


5431 




ISTR 


DSC 


/NEW DISPLAY STARTING CHANNEL ADD/2 





1503 

ill V *' w 


521 1 




ILOO* 

'ml nrf \0 ^ 


MGCRP 


/RIGHT CHANNEL MARKER NUMBtR 







1504 


4614 




I ADD* 


GSCP 


/ADD/2 OF 1ST CHANNEL IN CURRENT 


PPQUP 





1505 


4034 




ISUB 


INI 









1506 


5427 




ISTR 


DEC 


/NEW DISPLAY ENDING CHANNEL AOO/Ji 







1507 


0000 




lEXT 











1510 


6435 




JPS 


DISSET 


/SET DISPLAY PARAMETERS 







1511 


3433 




ISZ 


GROUPF 


/SET EXPAND FLAG 







1512 


6315 




JMP* 


EXPAND 


/EXIT 







1513 


1266 


MGCLP, 


MGCL 


/POINTER 


TO LEFT MARKER CHANNEL NUMBER 







1514 


1270 


MGCRP, 


MGCR 


/POINTER 


TO RIGHT MARKER CHANNEL NUMBE^v 







1515 


1525 


MGCCPf 


MGCC 


/POINTER 


TO CENTER MARKER CHANNEL NiiMRtP 







1516 


1535 


DECP, 


DEC 


/POINTER 


TO DISPLAY ENCING CHANNEL 







1517 


0605 


DELTAP, 


DELTA 


/X AXIS 


DELTA VALUE 







1520 


1640 


GSCP, 


GSC 


/POINTER 


TO ADDRESS/2 CF 1ST CHANNf.L TN' 







1521 


1777 


DCHANS, 


1777 


/NUMBER 


OF CHANNELS TO DISPLAY -1 







1522 


0000 
















1523 


0000 


DPNT8, 





//FUDGE 


TO GET X AXIS nEt TA FOR DATA 







1524 


3776 




3776 











1525 


1000 


MGCC, 


1000 


/CENTER 


MARKER CHANNEL NUMBER 







1526 


0000 
















1527 


2000 


OLSC, 


2000 


/OVERLAY 


INDICATOR 







1530 


0000 
















1531 


2000 


DMIN, 


2000 


/ADDRESS/2 OF 1ST CHANNEL IN CURRENT GPC-nP 





1532 


0000 
















1533 


2000 


DSC, 


2000 


/DISPLAY 


STARTING CHANK'EL ADDRESS/2 







1534 


0000 
















1535 


Z777 


DEC, 


3777 


/DISPLAY 


ENDING CHANNEl ADDRESS/? 
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1536 














1537 


3777 


DMAX, 


3777 /ADnRESS/2 OF LAST CHA^i^JFL IN CURRENT 





15^0 


0000 












1541 


001''' 1 


INI, 


1 /INTEGER 


1 





1542 


0000 












1543 


1533 


DSCP, 


DSC /POINTER 


TO DISPLAY STaRTIMG CHANNEL 





1544 


0000 


GROUPFr 


/EXPAND 


FLAG 


'SET UP 


DISPLAY 


PARAMETERS ROUTINE 







1545 


0000 


DISSET, 










1546 


06 40 


X51, 


TWJPS 







1547 


2441 




IM 







1550 


5113 




ILOD DEC 







1551 


4116 




ISUB DSC 







1552 


5531 




ISTR DCHANS 


/NUMBER Qr DISPLAY CHANNtLc - 





1553 


4467 




lADO IN2 







1554 


6466 




IDIV IN2 







1555 


4522 




lADO DSC 







1556 


4062 




ISUB GSC 







1557 


5532 




ISTR MGCC 


/CENTER MARKER GPPMP CHNL 





1560 


5135 




ILOD OPNTS 







1561 


6540 




IDIV DCHANS 







1562 


7060 




IMUL IN2 







1563 


5744 




ISTR*» DELTAP 


/DELTA X FOR DISPLAY 





1564 


0000 




lEXT 







1565 


6320 




JMP^ DISSET 


/EXIT 



/E3921 
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/GROUP SET PUSHBUTTON ROUTINE 






1566 


15 


GROUP, 












1,567 


5123 




LDJ 


GROUPF 


/SET EXPAND FLAG 





1,570 


1354 




SFTZ 


JK 14 


/SAVE EXPAND FlAf: TN K, CLP J 





157 I 


5525 




STJ 


GROUPF 


/CLEAR EXPAND FL^G 





1 572 


5456 




ST J 


GROUPD-fl 







1573 


1615 




SIZ 


CLR K 


/WAS EXPAND ON? 





1574 


6020 




JMP 


RELD 


/YES, GO RESTOPE DISPLAY 





1575 


5056 




LDJ 


GROPSP 


/NOi SET*/- ONF r,ROUR 





I 576 


064?) 




TW JPS 









1577 


1357 




UPDWN 









1 6P!0 


506^1 




UDJ 


GROUPS 


/PICK UP NEW GPOiiP 





1601 


1631 




SNZ 


SET K 


/UPDWN HIT A LIMIT? 





1602 


60P5 




JMP 


GRCONT 







1603 


1514 




CLR 


INC J 


/YES, SET TO GPOiiPl 





1604 


1405 




SIZ 




/WAS IT COUNT IIP? 





1605 


5055 




lOJ 


GROUP N 


/YES SET TO LAST GROUP 





1606 


5452 




STJ 


GROUPS 


/SET NEW GROUP 





1 607 


5440 


GRCQNT# 


STJ 


GROUPD 


/GROUPD « GROUPS - 1 





1610 


5041 




LOJ 


GRPl WP 


/FETCH POINTER Tn GROUP 1 i*^XDTH 





1611 


3036 




D8Z 


GPOUPD 


/GROUP 1? 





1612 


2202 




ADDL 


2 


/SET POINTER Tn KORMAL WIDTH 





1613 


5437 




STJ 


GRPWP 







1614 


7146 


RELO, 


XCT 


X61 


/JPS IM 





1615 


5235 




ILOOfl 


GRPWP 


/GET CURRENT GROUP WIDTH 





1616 


5446 




ISTR 


GROUPW 


/SET GROUP WIDTH 





1617 


5636 




ISTRf 


MHAXI 


/SET LIMIT ON f^ARKER 





1620 


7027 




IMUL 


GROUPD 


/CURRENT GROUP NUMRER -1 





1621 


49!43 




ISUB 


GROUPW 


/ADJUST FOR WlFRr 1ST GROUP SIZE 





1622 


4444 




I ADD 


GROPIW 







1623 


4421 




I ADO 


IN2000 


/STEP PAST 441P^ INSTRUCTIONS 





1624 


5414 




ISTR 


GSC 


/SET UP GROUP START CHANINFL 





1625 


<5574 




ISTR 


DMIN 


/SET UP LOWER POUNDS FDR CHANNEL 





1626 


5573 




ISTR 


DSC 


/SET DISPLAY STAPT CHANNEL 





1627 


4435 




I ADD 


GROUPW 







1630 


4167 




ISUB 


INI 







1631 


<5574 




ISTR 


DEC 


/SET DISPLAY END CHANNEL 





1632 


5573 




ISTR 


DMAX 


/SET UP UPPER POUNDS FOR CHANNFL 





1633 


5170 




ILOD 


DSCP 







1634 


5612 




ISTR«> 


DISPI 


/CLEAR OVERLAP OFFSET 





1635 


0000 




lEXT 









1636 


6571 




JPS 


DISSET 


/SET UP DISPLAY PAPAMFTFWS 





1637 


6351 






GROUP 


/EXIT 





1640 


2000 


G8C,. 


2000 


/ADDRESS/2 OF 1ST CHANK'EL IN CURRENT G^D 





1641 


0000 














1642 


0002 


IN2» 


2 


/INTEGER 


2 





1643 


0000 














1644 


2000 


IN2000, 


2000 


/INTEGER 


2000 



8-29 






1645 


0} i2 V' 














1646 


051 3 


DISPI # 


n o r% n 

P5PP 









1647 




GROUPD f 





/CURRENT 


GROUP NUMdER -1 





1650 
















1651 


1666 


GRPIWP, 


GROP 1 W 


/POINTER 


TO GROUP I wir.'TH 





1652 


1666 


GRPWP , 


GROPl W 


/POINTER 


TO CURRENT Gwnyp niuth 





1653 


1660 


GROPSP # 


GROUPS 


/POINTER 


TO CURRENT GROUP NU^Rfch 





1654 


1671^ 


GROPWP » 


GROPNW 


/POINTER 


TO NORMAL GROUP WIOTH 





1655 


1272 


MHAXI , 


MMAX 


/POINTER 


TO MAXIMUM RANtjF OF MARKERS 





1656 


0001 


nil 


1 


/INTEGER 


I 





1657 


0000 














1660 


0001 


GROUPS, 


I 


/CURRENT 


GROUP NUMBER 





1661 


0000 














1662 


0001 


GPOUPN , 


I 


/NUMBER 


OF GROUPS 





1663 


0000 














1664 


2000 


GROUPW , 


2000 


/CURRENT 


GROUP WIDTH 





1665 


0000 














1666 


2000 


GROPl W, 


2000 


/GROUP 1 


WIDTH 





1667 


00f:0 














167C? 


2000 


GROPNW, 


2000 


/NORMAL 


GROUP WIDTH C2 - N) 





1671 


0000 














1672 


001^0 


GROUPT, 





/GROUP SIZE ENTERED ON GROUP SET COMMAND 





1673 


0000 














1674 


00^0 


STF, 





/SKELETON FOR TWSTJ INSTRUCTION 





1675 


0544 




TWSTJ 


F0 





/GROUP SET COMMAND ROUTINE 






1676 


00^0 


GWSET, 










1677 


0540 




TWSTJ 


/CLEAR EXPAND FLAG 





1700 


1544 




GROUPF 







1701 


0640 


X56, 


TWJPS 


/PRINT GROUP 





1702 


2403 




UNPACK 







1703 


0022 




GPW 







1704 


7103 




XCT X56 


/JPS UNPACK - PRINT WIDTH 





1705 


0025 




WID 







1706 


0640 




TWJPS 


/INPUT OR ECHO GROUP WIDTH 





1707 


2140 




INEC 







1710 


1672 




GROUPT 







1711 


<7175 


X54, 


XCT RELD 


/JPS IM 





J1712 


5034 




ILOD MEMSIZ 







1713 


6521 




IDIV GROUPT 







1714 


0000 




lEXT 


/EXIT WITH N GROUPS IN J 





1715 


1601 




SNZ K 


/GROUP WIDTH TOO SMALL? 





1716 


1501 




SNZ J 


/GROUP WIDTH TnO LARGE? 





1717 


6631 




JPS# GERR 


/ERROR, ONE OF THE A60VE 





1720 


5536 




STJ GROUPN 


/STORE NUMBER OF GROUPS 





1721 


7110 




XCT X54 


/JPS IM 





1722 


5130 




ILOD GROUPT 


/LOAD NORMAL GROUP WIDTH 





1723 


5533 




ISTR GROPNW 


/STORE NORMAL GPrUP WIDTH 
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1 7P4 

J, / (T *^ 


5 *5 7i 6 

'yj" v4 Ke *./ 




ISTR GPOPIW 


/STQRF Gf^n iPi wlrTh - jtJ'^T T^• r acp sa^f 




1 7 1/ 


7 143 












g«7 




ISTR GROUP D 




(A 


1727 


5l?l 1 7 






/GET ST7E HP f;pni'C> 1 






4 1 rl 1 










1731 






I Ey T 




Hi 




1 *S t'i 1 




S N 7 J 


/OHANNFI S RF^1AT^JT^i^, 


(71 




ri t*! Ci S 




T HP W F y T T 


/NIP 


(71 


1 7 Z 













1735 


5547 




STJ GROPIW 


/STORE GROUP 1 SIZE 





1736 


0550 




TWSTK 




(71 


1 7S7 






GRCPl W+ 1 




P! 
V3 


1 7 4 ffl 


1 *S (S 


W F y T T . 


LDJ GROUPN 


/FORCE UPPER LIMIT Ih r,ROUP^ 


If 








STJ GROUPS 




I7t 

«y 


1 7 /I O 






CLR FLAG 






1 ^ «t 


Y* " *4 




TWJPS 


/STEP TO 1ST GROi'P + IN:ITIALJ7r; f,;^->fiUP I 




< 7 ^ >l 


1 K Ft ft 

1 iJ tJ D 




GROUP 




(71 


1 7 4 «5 


fi 4 7 




JMPf GWSET 


/EXIT 





1746 




MEMSIZ, 


/2000. 6000, 12000, 16000 - NUMBER OF ^)uUBl E INTS 





1747 


0{'^0 












1 75(3 


2120 


GERR, 


UNUSED /POINTER 


TO ERROR MESSAGE ROUTINE 





1751 


186 4 


GROPWI, 


GROUPW /POINTER 


TO CURRENT GRrUP WlOTH 





1752 




ERASEC, 


/COUNT OF NUMBER OF CHaNmELS TO ^RASF 





1753 


e f ; 












1754 


0000 


TWIZ, 


/SKELETON FOR TWISZ IN«;TPUCT I nrv 





1755 


B344 




TWISZ F0 




ERASE 


PUSHBUTTON ROUTINE 







1756 




ERASER, 










1757 


7146 


X55, 


XCT X54 


/JPS IM 





176{^ 


5307 




ILOD^ GROPWI 


/COUNT OF CHANhEL? TO gPASE 





1761 


6000 




INEG 







1762 


5510 




ISTR ERASEC 







1763 


5224 




IL0D<6 GSCI 


/ADDRESS OF 1ST CHAN!«!eL TO ERASE 





1764 


7224 




IMUL*" IN2I 







1765 


4571 




lADO STF 


/BUILD TWSTJ U-ST 





1766 


Ci 




lEXT 







1767 


5405 




STJ ERASEl+1 







1770 


0550 




TWSTK 







1771 


1773 




ERASEl 







1772 


151P» 




CLR J 







1773 


0544 


ERASEl, 


TWSTJ F0 


/CMOOIFIEO) ERaSF CHANNEL - LOw 





1774 


4000 




4000 







1775 


351^1 




ISZ ERASEl+l 







1776 


7103 




XCT ERASEl 


/ERASE CHANNEL - NIGH 





1777 


3503 




ISZ ERASEl+1 


/STEP TO NEXT rWANMEL 





2000 


1442 




SKIP 







2001 


3506 




ISZ ERASEl 
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20fi2 


Z5Z?i 


ISZ ERASEC 


/MORE 


CHANNELS 







6UG 


JMP ERASEl 


/YES 









3531 


ISZ ERASEC+l 









20P5 


6112 


JMP ERASEl 


/YES 







20fl6 


6330 


JMP^ ERASER 


/NO • 


EXIT 



LFTT TO ERASE? 



/E3682 
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/ 






20f 7 


1640 


GSCI , 


GSC /POINTER 


TO ADDRESS/2 PF 1ST CHANNEL 





2010 


1642 


IN2I, 


IN2 /POINTER 


TO INTEGER 2 





2011 


0740 


CLOCK , 


THIO 


/CLEAR CLOCK Flat, 





2^X2 


0612 




CLRCLK 







201 3 


3067 




DSZ PTIME2 


/PUSHBUTTON/PLriTTER TIMER 





2014 


600 3 




Jf^P . + 3 







2015 


3066 




DSZ PTIME 







2016 


1 4C0 




IDLE 







2017 


5056 




LDJ ACQCOM 







2020 


1515 




SIZ CLR J 


/AOUIRING? 





2021 


3457 




ISZ CLOCKl 


/YES, INC CLOCK 





2022 


6263 




JMPp IRTPN 







20^3 


3456 




ISZ CLOCKl+l 







2024 


6261 




JMP^» IRTRN 







2025 


1510 


AQOFF, 


CLR J 


/ALSO LIST OVERFI. OW SERV-"STOP ACnHiRg 





2026 


5447 




STJ ACQCCM 







2027 


6032 




JMP AQEXIT 


/SET ACQUIRE ON PR OFF 


/acquire: 


PUSHBUTTON ROUTINE 







2030 


00C0 


AQUIRE, 









2031 


5044 




LDJ ACQCOM 


/REVERSE ACOUlPfE INDICATOR 





2032 


1520 




CMP J 







2033 


2036 




ANDF AQMOOE 


/INT MODE*20, TNr540, DMA LIST«60 





2034 


5441 




STJ ACQCOM 







2035 


1501 




SNZ J 


/AQUIRE OFF? 





2036 


6023 




JMP AOEXIT 


/YES, BYPASS SFT UP 





2037 


4433 




ADJ AOFLD 


/NO, MERGE DMA FIELD FOR ADC COMMAND 





2040 


5435 




STJ ACQCOM 







2041 


7162 


X53, 


XCT X55 


/JPS IM 





2042 


5034 




ILOD TIME 


/SET UP PRESET TIME 





2043 


6000 











2044 


5434 




ISTR CLOCKl 







2045 


5336 




ILOD^ GSCI 


/SET UP ADC SERVICE 





2046 


7336 




IMUL^ IN2I 







2047 


4573 




lADD TWIZ 







2050 


5634 




ISTR«» GROPZK 


/STORE TWTSZ FnR 1ST CHANNEL In 





2051 


5216 




ILODf DMAXI 







2052 


7342 




IMUL^ IN2I 







2053 


<4577 




lADD TWIZ 







2054 


5614 




ISTR«J MEMZCI 


/STORE TWISZ FnR LAST CHANNEL 





2055 


0000 




lEXT 







2056 


5015 




LOJ LISTC 







2057 


0740 




TWIO 


/SET UP LIST MODE CHAM CNT. 





2060 


0632 




LOLIST 







2061 


6213 


AQEXIT, 


JMP* OLYEXT 


/PROVISION FOR OVERLAY SERVICE 





2062 


5013 




LDJ ACQCOM 







2063 


1354 




SFTZ JK 14 







2064 


0740 




TWIO 


/TURN AQUIRE On/PFF 



8-33 








O O <fc 
*?0iS 




SET4CG 




fH 

\o 




ft "51 ft 

n o 




JMP^ AQUIPE /EXIT 





'i rt! <C T 
«10O / 


1 *? Tl 7 


n M A V T 

" A X 1 t 


DMAX 


/POIK'TER TO ADORESS/2 rF LAST CHANhPu 







It; 1 ifl 


M C M T r T 




/POINTER TO TWISZ FHR LAST CHANNEL 




n n It * 


• a n o r> 

l(? <f 


A n M c 


0020 


/MODE OF ADC ACQUIWE 20sTNT, 40sINX, 6P8LIST 





'5 rn y o 
w / Z 


" B r 


A n c 1 n 
AQr LD » 





/FIELD OF ADC ACQHTRINr^ 





O r* *7 1 

20/3 


4 m r3i 


1 ▼ e *p f 
L I oTC 1 


1000 


/LIST MODE DUMMY COUNT 





20/4 


A ^ O 

2t?r2 


n 1 v p \/ ▼ 


AQEXIT+l 


/OVERLAY INDICATOR OF SOME TYPE 





f* 7 c: 


I'l (3 


A ^ n ^ o ki 





/ACQUIRING INDICATOR 





20/0 


fli n f/< ffi 




T T M e 

T I nt, ^ 





/PRESET TIME TO ACQUIRE FOR 





2Qi77 


t* 1? 














005.-0 


CLOCKl, 





/NEGATIVE NUMBER OF TICKS TO ACQUIRE FOR 





21PI 














2lf^2 


0100 


PTIME2, 


i0e 







2103 


00C>'0 


PTIME, 










2104 


0lf56 


GROPZK, 


GRCUPZ 


/POINTER TO TWISZ FOR i ST CHANNEL 





2105 


0362 


IRTRN, 


RETRN 







2106 


0000 


ECHOF, 





/ECHO OLD VALUE INDICATOR 



/E1629 



8-34 



/CLOCK SET COMMAND ROUTINF 








'^00W CLSET, 












21)0 


7040 


XCT 


X90 


/JPS UNPACK - TYPE CLOCK TIM£ 





2111 




CLSM 









2112 


6426 


JPS 


INEC 


/INPUT OR ECHO LAST TIME 





2113 


2076 


TIME 









2114 


7034 


XCT 


X90 


/JPS UNPACK - TYPE CENISEC 





2115 


0015 


CSFC 









2116 


6307 


JMPjJ 


CL8ET 


/EXIT 



/ERROR MESSAGE ROUTINE 






2117 


0000 


NUSEOl, 


/DOUBLE 


INT INPUT FROM TTY 





2120 




UNUSED, 










2121 


7027 




XCT X90 


/JPS UNPACK - PRTNT 





2122 


0030 




ERRORX 







2123 


351«s 




ISZ ECHOF 







2124 


6414 




JPS INEC 


/ECHO ERROR NUmBFR 





2125 


2117 




NUSEDl 







2126 


0640 




TWJPS 


/RESTART 





2127 


0227 


DECODP, 


DECODE 





/PRINT OLD NUMBER 






2130 


7167 ALTH, 


XCT 


X53 


/JPS IM 





2131 


5273 


ILODi* 


INECl 


/FETCH OLD NUMpEp 





2132 


3400 


lOUT 




/CONVERT TO OUTPUT FORMAT 





2133 


0000 


lEXT 









2134 


7014 


XCT 


X90 


/TWJPS UNPACK . P«?INT NUMBER 





2135 


0003 


TTY 









2136 


5530 


STJ 


ECHOF 


/CLEAR ECHO OLP VALUE INDICATOR 





2137 


6201 


JMP^ 


INEC 





/INPUT VALUE POINTED TO BY CALL+1 OR ECHO OLD VALUE IF ALTMDDE Ei^'TEREQ 
/RETURN TO CALL+2 






2140 


0000 


INEC, 








2141 


5301 




LDJ^ INEC 





2142 


5462 




STJ INECl 





2143 


3503 




ISZ INEC 





2144 


1510 


INECR. 


CLR J 





2145 


2537 




SMJ ECHOF 





2146 


1442 




SKIP 





2147 


6117 




JMP ALTM 





2150 


0640 


X90, 


TWJPS 





2151 


2403 




UNPACK 





2152 


0033 




EQ 





2153 


5534 




STJ NUSEDl 





2154 


5534 




STJ UNUSED 



/POINTER TO INPUT VARIABLE LOCATION 
/STEP TO RETURN ADDRESS 
/ECHO OLD VALUF 

/NO 
/YES 

/TYPE COLON 



/CLEAR STORAGE FOR INPUT NiiMPER 



8-35 






2 1 


545? 




ST J 


S I G N 1 


/CLEAR SIGN OF IKPUT NUN^BPP 





9156 


22 1 Vl 




AOHL 


1 


/SEVEN DIGITS WAV 


rJ 




•J *♦ * 




ST J 











3447 




ISZ 


SIGNl 


/I IF POS, 2 IF MEG 




2161 


n6 40 

»,* V ^ w 


1 . 


T W JPS 




/FETCH CHAR 






r)24 5 

r.' " w 




FCH AR 








2163 


24;>3 




SMJ 


MINUS 


/MINUS CHAR? 











JMP 


.-4 


/YES- INCREMENT ?IGNl 





le. lit v w 


1 442 




SKIP 




/NC 







7 1^5 


L0CP2 . 

V* *^ *^ S« f 


XCT 


X9 1 


/JPS FCHAR 





2167 


1 450 




CLR 





/START TEST FOR NUMERIC CHAR- UUt^'E'^lC? 




It* 


2170 


2372 

R W f fib 




SU8L 


72 







2171 


1441 














2172 


6316 




JMP 


TSTC 


/NO - TEST FOR SPECIAL CHARACTER 





2173 


2212 




AHDL 


1 2 







217 4 


1455 




SIZ 


CLR 





** 


2175 


6013 




JMP 


TSTC 


/NOi GO TEST FpR SPECIAL CHARS 





2176 


5427 




ST J 


TEMP3 


/YES, CONVERT niGIT 





2177 


7147 


X72 , 


XCT 


ALTM 


/JPS IM 





2200 


5161 




ILOD 


NUSEOl 


/MULT OLD BY IP" 





220 1 


7030 




IMUL 


C10 







2202 


4423 




I ADO 


TEMP3 


/AND ADD NEW 





2203 


5564 




ISTR 


NUSEOl 


/TEMPORARY TOTAL NUMBER 





2204 


0000 

K< 1(1 V KJ 




TEXT 









2205 


3023 




DSZ 


CNTR 


/SEVEN DIGITS nQNiE? 





2206 


6120 




JMP 


L00P2 

few W W T *• 


/NOi GO DO ANOTHER 





2207 


6567 




JPS 


UNUSED 







2210 


2425 


TSTC i 


SMJ 


RUBOUT 


/RUBOUT CHAR? 





2211 


6145 




JMP 


INECR 


/YES, RESTART FpRhinG NUMBER 





2212 


2422 




SMJ 


ESC 


/ESCAPE OR ALTMODE? 





2213 


6163 




JMP 


ALTM 


/YES, GO ECHO OLH NUMBER 





2214 


2417 




SMJ 


ALT 







2215 


.6165 




JMP 


ALTM 


/YES, GO ECHO OLr NUMBER 





2216 


301 1 




DSZ 


SIGN1 


/NO, SIGN NEGATIVE? 





2217 


6620 




JPS* 


NEGACI 


/NEGATE INTEGER AC 





2220 


7121 




XCT 


X72 


/JPS IM 





2221 


5603 




ISTR* 


INECl 


/STORE NEW NUMRER 





2222 

Cm «b »* C« 


0000 




lEXT 




/J,K HAVE INPUT NUMBER 





2223 


6363 




JMP* 


INEC 







2224 

•i Ci (fc 


0000 

Xr' %i V V 


INEC 1 ■ 





/POINTER 


TO VARIABLE TO RE INPUT 





2225 


0000 


TEMP3 , 





/TEMP STORAGE FOR LAST DFCIMAL OIGIT ENTERED 





2226 


0000 














2227 


0000 


SIGNl, 





/SIGN OF 


INPUT NUMBER* 1 IF POSITIVE, 2 IF NEGAT 





2230 


0000 


CNTR, 





/DIGIT COUNTER FOR TTY NtiMBER INPUT 





2231 


0012 


C10, 


12 


/DOUBLE 


INTEGER DECIMAL 1 





2232 


0000 














2233 


0103 


ALT, 


103 


/ALTMODE 


MASK, 175-72 





2234 


7753 


ESC, 


7753 


/ESCAPE 


MASK, 33-60 





2235 


0105 


RUBOUT, 




/RUBOUT 


MASK, 177-72 



8-36 



2236 t''0t55 MINUS, 5fS /7 SIT ASCII FOP MINUS STGr- 

2237 23.^?^ NEGACI, NFGAC /POINTER TO NEGATE INTfGFR ACCD^niL ATOR Rri;TI\>^ 
/STATUS PUSHBUTTON ROUTINE 






2240 


S^0P0 


STATUS 


, 







2241 


34f/ll 




ISZ STATUl 


/STEP TO NEXT STATUS GROUP POT^^TFR 





2242 


5011 


STATU! 


, LDJ .+11 


/STORE NEW STATU? GROUP POIMTEf-" 





2243 


0540 




TWSTJ 







2244 


15^41 




ST ATX 







224S 


1505 




SIZ J 


/LIST END? 





2246 


6306 




JMP|> STATUS 


/NO - EXIT 





2247 


50P'3 




LDJ LDF 


/YES, RESET TO BFCINNTMR OF LT-ST 





2250 


5306 




STJ STATUl 







2251 


6311 




JMPjJ STATUS 


/EXIT 


/LIST OF 


POINTERS TO 


STATUS GROUPS 







2252 


5010 


LOF, 


LDJ .4.10 







2253 


2257 











2254 


2267 




ZFLL-l 







2253 


2277 




CLOK-l 







2256 


0000 







/PROVISION FOR OVERLAV STATUS 





2257 


0000 







/ZERO TERMINATOR Tr STACK 



/STATUS GROUPS - 20 ADOEO TO ASCII CHARACTERS 






2260 


0612 


MR, 


MDATA+l 


/CENTER MARKER DATA 





2261 


0077 




77 


/ / 





2262 


1526 




MGCC+1 


/CENTER MARKER CHNL 





2263 


0057 




57 


/CR-LF 





2264 


1271 




MGCR+l 


/RIGHT MARKER CHml 





2265 


0075 




75 


/ - 





2266 


1267 




MGCL+l 


/LEFT MARKER CMNL 





2267 


7760 




7760 


/TERMINATOR 





2270 


1663 


ZFLLf 


GROUPN+l 


/NO OF GROUPS 





2271 


0077 




77 


/ / 





2272 


1661 




GROUPS+l 


/CURRENT RPOUP 





2273 


0057 




57 


/CR-LF 





2274 


1665 




GROUPW+l 


/GROUP WIDTH 





2275 


0057 




57 


/CR-LF 





2276 


1275 




ZFULL'^l 


/COUNTS FULL SCALE 





2277 


7760 




7760 


/TERMINATOR 





2300 


2101 


CLOK, 


CLOCKl+1 


/ELAPSED TIME 





2301 


0057 




57 


/CR-LF 





2302 


2077 




TIME4-1 


/PRESET TIME 





2303 


7760 




7760 


/TERMINATOR 



8-37 



/E3250 



8-38 



/KEYBOARD COHMANiO DIRECTORY 






2304 


0103 


T AB I , 


103 


/CLOCK SET 





2305 


0107 




107 


/GROUP SET 







00E0 







/STORE C1061) 





23P7 


?(0P0 







/PRINT Cl06n 





2310 


0000 







/EXTRA 





2311 


£?0P.^ 







/INTEGRATE (10^1) 





2319 


P000 







/DIFFERENTIATE (1061) 





2313 


000f? 







/EXTRA 





2314 









/EXTRA 





2315 


0000 







/EXTRA 





2316 


0000 







/EXTRA 





2317 


0000 







/EXTRA 





2320 


0000 


CHARX, 





/END OF TABLE - CHARA 



/KEYBOARD ROUTINE DIRECTORY 






2321 


2107 


CLSET 


/CLOCK SET COMMAND ROUTTksE 





2322 


1676 


GWSET 


/GROUP SET COMMAND ROUTlKiE 





2323 


2120 


UNUSED 







2324 


2120 


UNUSED 







2325 


2120 


UNUSED 







2326 


2120 


UNUSED 







2327 


2120 


UNUSED 







2330 


2120 


UNUSED 







2331 


2120 


UNUSED 







2332 


2120 


UNUSED 







2333 


2120 


UNUSED 







2334 


2120 


UNUSED 







2335 


2120 


UNUSED 


/CAN NOT BE CHANGED - TAKEN 








/NOT FOUND 



/PUSHBUTTON ROUTINE TABLE 






2336 


1465 TABLE, 


DMOVE 





2337 


1445 


DWIDTH 





2340 


1460 


MMDVE 





2341 


1441 


MWIDTH 





2342 


1276 


ZSET 





2343 


0266 


PLOT 





2344 


2240 


STATUS 





2345 


2120 


UNUSED 





2346 


1204 


DISPLY 





2347 


1566 


GROUP 





2350 


1475 


EXPAND 





2351 


2030 


AQUIRE 





2352 


0227 


DECODE 





2353 


2120 


UNUSED 



/ 
/ I 



/ 2 




FRONT 


PANEL 




/ 3 




PUSHPUTTONS 




/ 4 










/ 5 





1 


;? 


3 


/ 6 










/ 7 


4 


5 


6 


7 


/ 8 










/ 9 


8 


9 


\?> 


1 1 


/10 










/II 


12 


13 


14 


15 


/12 










/13 




16 


16 





8--39 



2354 2120 
S355 

2356 I7f6 



UNUSEO /14 
UNUSED /15 
ERASER /16 



8-40 






2357 




PKTEMP, 







p) 


2360 




POINT, 


3 




'PRINT 


1 CHARACTER ROUTINE 







2361 


0000 


CHROUT, 










2362 


>2177 




ANDL 


77 





2363 


2443 






P75 





2364 






JMP 


CLRJ 





2365 


2442 




SMJ 


P77 





2366 


6005 




JMP 


CRLCUT 





2367 


4436 




ADJ 


P240 





2370 


6010 




JMP 


XOUT 





2371 


15J0 


CLRJ, 


Cl^ 


J 





2372 


6211 




JMPf 


UNPACK 


'PRINT 


CR-CP-LF 


ROUTINE 







2373 


5031 


CRLQiUT, 


LDJ 


P215 





2374 


70P4 




XCT 


XOUT 





2375 


5027 




LDJ 


P215 





2376 


7002 




XCT 


XOUT 





2377 


5024 




LDJ 


P212 





24(?!0 


0640 


XOUT, 


TWJPS 





2401 


02^2 




LOPRNT 





2402 


6321 




JMP<» 


CHROUT 



/ PRINT MESSAGE UNTIL TERMINATOR (75) 
/CALL * I IS POINTER TO MESSAGE 
/RETURN TO CALL + 2 WITH J«0 






2403 


0000 


UNPACK, 










2404 


5301 




LDJ# 


UNPACK 





2405 


5525 




STJ 


POINT 





2406 


3503 




ISZ 


UNPACK 





2407 


1514 




CLR 


INC J 





2410 


2412 




SMJ 


PSUPPF 





£411 


6120 




JMP 


CLRJ 





2412 


5332 


NXTPNT, 


LDJ# 


POINT 





2413 


5534 




STJ 


PKTEMP 





2414 


3534 




ISZ 


POINT 





2415 


1166 




ROTO 


06 J 





2416 


6535 




JPS 


CHROUT 





2417 


5140 




LDJ 


PKTEMP 





2420 


6537 




JPS 


CHROUT 





2421 


6107 




JMP 


NXTPNT 



/TEMPORY CHAR STOPAGF BEFORE P'-IM 
/MESSAGE POINTFR FHP TTY nUTPUT 



/ISOLATE CHARArTPp 
/TERMINATOR ? 
/YES 

/END LINE ? 
/YES - OUTPUT rP-LF 
/CONVERT TO ASCII 
/PRINT CNARACTFR 

/INITIALIZE J PEr, js n ON PETU^^^' 

/EXIT « END OF MFSSAGE 



/CR 

/TWJPS LOPRNT 
/CR 

/TWJPS LCPRNT 
/LF 

/PRINT CNARACTFR 

/RETURN FPR NEXT CHARACTER 

ON TTY ROUTINE 



/LOCATION OF MFS.«5AGE 
/TO POINTER 



/PRINT SUPPRESS? 
/YES, CLEAR J ANn EXIT 
/GET 2 CHARACTFP? 
/STOPE 2^0 CHAPATTER 
/STEP TO NEXT P CHARACTERS 
/POSITION 1ST CHARACTER 
/OUTPUT 1ST CHARACTER 
/GET 2ND CHARACTER 
/OUTPUT 2ND CHAPAC^ER 
/PROCESS MEXT ? CHARACTERS 



8-41 






2422 





PSUPPF, 







2423 




P2l2f 


212 





2424 


P215 


P215, 


215 





2423 


fj24Pi 


P240, 


24n 





2426 




P75, 


75 





2427 


0077 


P77, 


77 



/PRINT SUPPRESS 

/UF 

/CR 

/SPACE 
/TERMINATHP 
/CR-LF INDICATrR 



/E2136 



8-42 



/DOUBLE INTtGER PACKAGE - DUBINT OR IM 






J?430 


2442 




NCPX 




/7400 







2431 


2577 




OLMLT 




/7l7t00 







2432 


2632 




DLDIV 




/64'?)0 







2433 


25c:7 




ACNEG 


/60«?0 







2434 


2516 




DLSTOR 


/54i;!f* 







2435 


2511 




DLLOAD 


/5PS0^ 







2436 


2523 




FLADD 


/4400 







2437 


2535 




FLSUB 


/4000 







2440 


27R7 




SDPRNT 


/3400 







2441 


51000 


DUeiNT, 






/INTEGER PACKAGE 







2442 


5301 


NOPXff 


kr 1/ w \r 


HUB T MT 









2443 


1164 




RfiTn 




/FETCH INST 







2444 


1204 




1 K F T 

U i> r J 




/SAVE EVEPYTHIMG 







2445 


2117 






1 7 


/RETAIN INST CnDF 







2446 


150 5 




<5 T 7 


T 

tJ 


/lEXT? 







2447 


2306 






A 

\) 


/NO 







2450 


4432 




An T 

M U J 


1 M D U C A 


/BUILD GO TO PnI^jTER 







2451 


5430 






TFMPy 

1 C. n r ^ 









2452 


1374 




c A >J rv 




/RESTORE EVERYTHING 







2453 


1650 




L, 


r u 









2454 


1361 




ROT n 




/MOVE INDIRECT BIT TO 


K 





2455 


1502 




SIP 


J 


/RELATIVE BIT mIn'US? 







2456 


1470 




SET 





/YES, REMEMBER*; 







2457 


11^7 




ROTD 


J 7 


/NOW MOVE IN RFLATIVE 


ADDRESS 





2460 


>2177 




ANDL 


77 









2461 


1455 




SIZ 


CLR 


/RELATIVE MINU?? 







2462 


1524 




CMP 


INC J 


/YES, NEGATE RFLATIVE 


ADDRESS 





2463 


4522 




AOJ 


DUBINT 


/COMPUTE ABS ADDRESS 







2464 


5433 




STJ 


ADRS 









2465 


5232 




LOJ* 


ADRS 


/NOW FETCH OPEPAMD 







2466 


1615 




SIZ 


CLR K 


/INDIRECT? 




Kl 


9 487 


V I, V Q 




JMP 


«>3 


/YES, GO FETCH RFAL OPERAND 





2470 


5413 




STJ 


LORDl 









2471 


3426 




ISZ 


ADRS 









2472 


5225 




IDJ9 


ADRS 









2473 


5411 




STJ 


HORDl 









2474 


3533 




ISZ 


DUBINT 









2475 


0510 




TWUOK 











2476 


2506 




HORD 











2477 


5006 




LDJ 


LORD 









2500 


1410 




CLR 


FLAG 









2501 


6340 


TEMPX, 


JMP^ 


DUBINT 









2502 


6340 


TAQLEXi 


JMP# 


DUBINT+1 


/USED TO BUILD PPTNTER 


TO OPEPATIOr 



8-43 






n K r> n 


r% rtk f% tH 


1 rt D n 4 


\r 









il* f% I'X fH 

lrJ0V?0 


u rt D n 4 









n K c 


n n fh n 

01300 


1 n D n 


I'' 







r\ K r* C 


n n n n 


Li n □ n 


V 









6441 


ACNEG, 


JPS 


NE6AC 


I?! 


2510 


R 4 >l R 




JMP 


DUBINT*1 





2011 


1 WO 


ni 1 HAH 


LDJ 


LORDl 





2912 
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/VERSION A 

/2 6/7/72 
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SECTION I 
INTRODUCTION 



1-1. PROGRAM SUMMARY 

1-2, The Integer Interpreter Program (41-0017) is an integral part of ND4410 Basic 
Physics Analyzer Program (41-1060). It contains programmable subroutines that provide 
fast double precision addition, subtraction, multiplication, division, and I/O routines, 

1-3. PROGRAM AREA 
1-4, Not applicable, 

1-5. STARTING ADDRESS 

1-6, The subroutines are called by softwore commands from the Basic Physics Analyzer 
Program (41-1060), 

1-7. EQUIPMENT CONFIGURATION 

1-8, Refer to Chapter 1, Paragraph 1-8, equipment configuration. 
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SECTION II 
PROGRAM DESCRIPTION 



2-1. INTRODUCTION 

2-2. This section is intended to be read in conjunction with the flow charts outlined 
in Section VII, 

2-3, This program contains a two-word (24 bit) integer accumulator and a two-word 
operand holding register that make up an intricate section of the instruction interpreter. 
The interpreter uses a format modeled after the standard MRI's i,e,, a 4-bit instruction 
code, an indirect bit, a direction bit, and 6 address bits, 

2-4. INTEGER INTERPRETER 

2-5, The interpreter (Figure 7-1) is entered by a JPS IM, The effective address is 
determined and the operand is deposited in the operand holding register. Note that a 
zero instruction will exit the interpreter. The instruction code is then decoded and the 
program will branch to the indicated routine, A load or store routine is basically a 
utility in that they load the integer accumulator with a 5000 instruction or store the 
contents of the integer accumulator with .a 5400 instruction, 

2-6, ADDITION ROUTINE, SUBTRACTION ROUTINE, AND MULTIPLICATION ROUTINE 

2-7, The add routine (Figure 7-3) performs a double precision addition of the operand to 
the integer accumulator with the results left in the integer accumulator. The subtraction 
routine (Figure 7-4) is accomplished by negating the operand and adding the negative 
operand to the integer accumulator. The multiplication routine (Figure 7-5) checks the 
sign of the operand and integer accumulator to ascertain that it is positive, and multiplies 
the high order 12 bits of the operand by the low order 12 bits of the integer accumulator 
(hardware multiply). Next the high order 12 bits of the integer accumulator are multiplied 
by the low order 12 bits of the operand. Finally the high order 12 bits of the integer 
accumulator are multiplied by the low order 12 bits of the operand. The sign of the 
product is corrected and the product is left in the integer accumulator. Note that only 
the low order 24 bits are generated (23 data bits and 1 sign bit). 
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2-8. DIVISION ROUTINE 



2-9. The division routine (Figure 7-6) is a process of 23 subtractions and integer 
accumulator left shifts. The operand is the divisor, the integer accumulator the integer 
dividend, and the quotient is shifted into the integer accumulator from the right. Only 
integer numbers are considered in the quotient. Division by zero causes the division 
routine to be bypassed. 
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SECTION III 
OPERATIONAL PROCEDURE 



3-1, NOT APPLICABLE 
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SECTION IV 
OPERATOR OR USER CONTROL 



4-1. GENERAL INFORMATION 

4-2, In the following sample program the interpreter is entered with a two-word JPS, 
A is loaded into the integer accumulator, B added to it, multiplied by C and stored in 
D. The interpreter is then exited and the program stops. Table 4-1 lists the status of 
HORD and LORD (the integer accumulator) for each routine in the sample routine, 

NOTE 

The minus (-) key must be depressed when inputting a negative number. 
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Table 4-1 , HORD and LORD Status 
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SECTION V 
ERROR DIAGNOSTICS 



5-1. ERROR IINDICATION 

5-2, A division by zero causes the contents of location ERROR! to be incremented by 
one (initially set \o jS) and the division routine is bypassed o 
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SECTION VI 
COMMAND SUMMARY 



6-1, Table 6-1 describes the instructions of the Integer Interpreter. 



Table 6-1. Integer Interpreter Instructions 



INSTRUCTION CODE 


INSTRUCTION 


DESCRIPTION 


0000 


lEXT 


This instruction exits the interpreter 
mode. 


3400 


lOUT 


This instruction causes a JPS to the 
output routine. It converts the 
number in the integer accumulator, 
the form is a sign and seven digits. 
The contents of the integer accumulator 
are destroyed. This number can 
range from -8388608 to +8388607. 
The converted number is stored in 
the output buffer starting at location 
TTY. 


4000 


ISUB 


This instruction causes a double 
precision subtraction of the operand 
from the integer accumulator. 
The results are left in the integer 
accumulator. 


4400 


lADD 


This instruction causes a double 
precision addition of the operand 
to the integer accumulator. The 
results are left in the integer 
accumulator. 


5000 


ILOD 


This instruction loads the operand 
into the integer accumulator. 
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Table 6-1. Integer Interpreter Instructions (Cont'd) 



INSTRUCTION CODE 


INSTRUCTION 


DESCRIPTION 


5400 


ISTR 


This instruction stores the integer 
accumulator in the effective address o 
The contents of the integer accum- 
ulator are left intact. 


6000 


INEG 


Negates integer accumulator. 


6400 


IDIV 


This instruction causes the integer 
accumulator to be divided by the 
contents of the effective address. 
The quotient is left in the integer 
accumulator. The remainder is in 
core locations 743 and 744, 
Division by zero causes location 
745 to be set and the division 
is bypassed. 


7000 


IMUL 


This instruction causes the integer 
accumulator to be multiplied by the 
contents of the effective address, | 
Note that only the low order 24 j 
bits are generated, i 


7400 


INOP 


i 

Dummy routine, j 

1 
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SECTION VII 
FLOW CHARTS 



7-1 o Figures 7-1 through 7-8 depict the flow of the integer package routines. 
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Figure 7-1. Integer Interpreter 
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Figure 7-2, Output Routine 
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Figure 7-3. Addition Routine 
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Figure 7-4. Subtraction Routine 
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Figure 7-5. Multiplication Routine 



7-5 



Set ACC = + 
Set Oper. = 



Set Error 
& Return 



YES 




NO 



Set Loop 
Counter 



— > 

Subtract 
Oper, From 
ACC. 




YES 



Set Bit in 
Quotient 



> 

Shift Dividend 
and Quotient 



NO 




, YES 


Change 


ACC 


To Proper 




Sign 











Figure 7-6. Division Routine 
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Figure 7-8, Dummy Routine 
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Figure 7-7. Negate Routine 



7-7 



SECTION VIII 
PROGRAM LISTING 



8-U Ref^r toChapter 1, Section VIII (41-1060 listing). 
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NUCLEAR DATA INC. 



Nuclear Data Inc. 
P. 0. Box 451 
100 West Golf Road 
Palatine, Illinois 60067 
Tel: (312) 529-4600 

Nuclear Data Inc. 

103 Pincushion Road 

F ramingham, Massachusetts 01701 

Tel: (617) 899-4927 

Nuclear Data Inc. 

P. O. Box 2192 

14278 Wicks Boulevard 

San Leandro, California 94577 

Tel: (415) 483-9200 

Nuclear Data Inc. 
2335 Brannen Road, S.E. 
Atlanta, Georgia 30316 
Tel: (404) 241-3220 

Nuclear Data, GmbH 
Mainzerlandstrasse 29 
6 Frankfurt/M, Germany 
Tel: 23 11 44 

Nuclear Data Inc. (U.K.) 
F^ose Industrial Estate 
Cores End Road 
Bourne End, Bucks., England 
Tel: 22733 

Nuclear Data (Ireland) Ltd. 
Kinsale Road, Ballycurreen 
P. O. Box #23 
Cork, Ireland 
Tel: 22137 

Nuclear Data (Scandinavia) 
Division of Selektronik A/S 
Hammervej 3 
2970 H0rsholm, Denmark 
Tel: (01)86 30 00 



